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bPUB. LISTING 7 9 / 0 5 / 0 5 . T ITL E : FORTH NUCLEUS FOR PACE 



1 

o 




.TITLE 


FORTH, 'NUCLEUS FOR PACE' 


L 

3 




.ASM 


TI 


4 
5 
6 




PART 


1 


7 
8 




.LIST 


PART=1 


9 




**************************************************** 


10 




;* THIS IMPLEMENTATION OF THE FORTH LANGUAGE * 


1 1 




;* IS ONE OF 


A UNIFORM SERIES DEVELOPED BY THE * 


12 




j * 


* 


13 




; * 


FORTH INTEREST GROUP * 


14 




; * 


P.O. BOX 1105 * 


15 




; * 


SAN CARLOS, CA 94070 * 


16 




. * 


* 


1 7 




;* PACE IMPLEMENTATION BY DAVID KILBRIDGE * 


18 




**************************************************** 


19 








20 


0000 


.ASECT 




21 


0010 




0010 


22 








23 




**************************************************** 


24 




* * 


BOC AND FLAG ABBREVIATIONS * 


25 




**************************************************** 


26 








2 7 


0001 


Z 


1 


28 


0002 


P 


2 


29 


0003 


BITO 


3 


30 


0005 


NZ 


5 


31 


0007 


CRY 


7 


32 


0008 


LINK 


8 


33 


000A 


CSET 


10 


34 


000B 


M 


11 


35 








36 




**************************************************** 


37 




* * 


MEMORY ASSIGNMENTS * 


38 




**************************************************** 


39 








40 


3FC0 


HIBLK 


03FC0 ; HIGHEST BLOCK FWA 


41 


2000 


LOBLK 


02000 ; LOWEST BLOCK FWA 


42 


0080 


BLKSIZ 


128 ; BLOCK SIZE IN BYTES 


43 


0008 


NBUF 


8 ; NO OF BLOCK BUFFERS 


44 


2000 


TOPMEM 


02000 ; LWA+1 OF DISK BUFFS 


45 


0210 


BUFMEM 


BLKSIZ/2+2*NBUF ; LTH OF BUFFER AREA 


46 


1DF0 


BUFFS 


TOPMEM-BUFMEM ; FWA OF DISK BUFFERS 


47 


1DD0 


UVARS 


BUFFS-32 ; START OF USER AREA 


48 


0100 


DICT 


0100 ; FWA OF DICTIONARY 


49 








50 




**************************************************** 


51 




; * 


START-UP LITERALS * 


52 




**************************************************** 


53 








54 0010 


9811 A 


ORIG: JMP 


@.+l ; COLD 
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55 


0011 


0 8 8C 


A 




.WORD 


CENT 


; ENTRY 


56 


0012 


9813 


A 




JMP 


@. + l 


; WARM 


5 7 


0013 


0892 


A 




.WORD 


WENT 


; ENTRY 


58 


0014 


0000 


A 


CPU: 


.WORD 


0 


; RESERVED 


59 


0015 


0000 


A 


REV : 


.WORD 


0 


; RESERVED 


60 


0016 


0C65 


A 


FORTHO : 


.WORD 


TASK-4 


; TOP WORD IN DICT 


61 


0017 


005F 


A 


BACKSP : 


.WORD 


005F 


; BACKSPACE CHARACTER 


62 


0018 


1DD0 


A 


UO : 


.WORD 


UVARS 


; START OF USER AREA 


63 


0019 


1D8F 


A 


SO : 


.WORD 


UVARS-65 


; TOP OF EMPTY STACK 


64 


001A 


1DD0 


A 


RO: 


.WORD 


UVARS 


; TOP OF RETURN STACK 


65 


001B 


1D8F 


A 


TIBO : 


.WORD 


UVARS-65 


; SOURCE BUFFER ORIG 


66 


001C 


001F 


A 


WIDTHO : 


.WORD 


31 


; INITIAL NAME LENGTH 


67 


001D 


0000 


A 


WARNO : 


.WORD 


0 


; ERROR WARNING MODE 


68 


001E 


0C65 


A 


FENCEO : 


.WORD 


TASK-4 


; BARRIER FOR FORGET 


69 


001F 


0C6B 


A 


DPO : 


.WORD 


FIN 


; FWA OF FREE STORAGE 


70 
71 


0020 


0843 


A 


VOCLO : 


.WORD 


F0RTH+4 


; INITIAL VOC-LINK 
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72 
73 
74 
75 

76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 

8 7 
88 
89 
90 

9 1 
92 

93 
94 
95 
96 
97 
98 
99 
100 



0021 0000 

0022 0000 
0002 
000 3 
0001 
0002 
0003 



0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 



7E3B 
7E44 
7ECC 

5000 A 
0800 A 
6700 A 
5109 
6400 
79FF 
1827 
3100 



.PAGE 

*************************************************** 

* FORTH REGISTERS * 

*************************************************** 



RP : 
UP: 

X 
Y 

IP 

W 

SP 



.WORD 
.WORD 



•RETURN STACK PTR 
USER POINTER 
INDEX 

REGISTERS 
INTERPRETIVE PTR 
FORTH CODE PTR 
FORTH STACK PTR 



j*************************************************** 

; INSTALLATION-DEPENDENT ROUTINES 

**************************************************** 



GETC 
PUTC 
INTEST 

INIT: 



LI 
CRF 
PULL 
LI 

PULL 
AISZ 
JMP 
PFLG 



07E3B 
07E44 
07ECC 

0. 0 
0 

Y 

1,9 

0 

1, -1 
.-2 

1 



101 002B 

102 002C 
103 

1 04 

105 
106 

107 
108 
109 
1 10 
1 1 1 
1 12 
1 13 

114 
115 
116 
117 
118 



6300 
1B00 

0000 
00F6 
002D 



0000 
0001 

0001 
0000 
8000 
0080 



PUSH 
JMP 



Y 

(Y) 



POINTER AREA 



.BSECT 
.=.+00F6 
. ASECT 

*************************************************** 

* AIDS FOR NAME FIELD CONSTRUCTION * 

*************************************************** 



FORM 



ORD 

IMM 

SHORT 

LONG 

EVEN 

ODD 



HEAD , 1 ( 1 ) , 1 , 1 (0) ,5 , 1 , 7 



0 
1 
1 
0 

08000 
00080 



ORD IN . WD PREC BIT 
IMMED. WD PREC BIT 
FOR 1-CHAR NAMES 
FOR LONGER NAMES 
EVEN-LTH STOP BIT 
ODD-LTH STOP BIT 
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1 19 

1 20 
121 
122 

123 
1 24 
125 
126 
127 
128 

129 
1 30 
131 
1 32 
133 
134 
135 
136 
137 
138 
1 39 
140 
141 
142 
143 
144 
145 



0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
010A 
010B 
010C 



002D 
0100 



834C 
49D4 
0000 
0104 
5E40 
C200 
7901 
7BFF 
D300 
5E40 
7901 
CAOO 
9AO0 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



010D 8745 A 
010E 5845 A 
010F 4355 A 

0110 54C5 A 

0111 0100 A 



.PAGE 'DICTIONARY' 
.ASECT 

DICT 

*************************************************** 
* LIT, PUSH, PUT, NEXT * 

*************************************************** 



HEAD ORD, 3, LONG, 'L'/256 

.WORD ' IT'+ODD, 0000 



LIT: 



PUSH : 
PUT: 
NEXT : 



.WORD .+1 

RCPY IP,X 

LD 0,(X) 

AISZ IP,1 

AISZ SP,-1 

ST 0, (SP) 

RCPY IP,X 

AISZ IP,1 

LD W,(X) 

JMP @(W) 



PICK UP 

VALUE 
STEP IP OVER 
EXTEND STACK 
STORE VALUE 

INCREMENT IP 
ADDR OF NEXT WORD 
JUMP THRU CODE ADDR 



*************************************************** 

* EXECUTE * 

*************************************************** 

HEAD ORD , 7 , LONG , ' E ' / 2 5 6 

.WORD 'XE' , 'CU' , 'TE'+ODD ,LIT-3 



1 A A 

1 H D 


0 119 


n i i ^ 


A 
A 


EXEC : 




4_ 1 
• T 1 


l 4 7 

X *T / 




PR 0 0 

\j U \J \J 


A 

xA 






LD 


W,0(SP) ; FETCH CODE ADDR 


148 


0114 


7B0 1 


A 






AISZ 


SP,1 , ; POP STACK 


1 /. O 


U 1 1 J 


ft* Afl 

y au u 


A 






JMP 


@(W) ; JUMP THRU CODE ADDR 


1 50 
















151 










>*************************************************** 


152 














BRANCH, OBRANCH * 


153 










*************************************************** 


154 
















1 5 5 


0 116 


8 6 4? 

CJ U H /I 


A 
xl 






HEAD 


ORD, 6, LONG, 'B'/256 


156 


0117 
0118 
0 119 

\J X X 7 

OllA 


5241 
4E4 3 
T8 20 

\j U ^ v 

0 1 OD 


A 
A 
A 
A 






.WORD 


'RA'.'NC, 'H'+EVEN, EXEC-5 


157 


01 IB 


one 


A 


BRAN : 


.WORD 


. + 1 


158 


one 


5E40 


A 






RCPY 


IP,X ; ADD OFFSET 
IP, (X) ; TO IP 


159 


011D 


E600 


A 






ADD 


160 


011E 


19EA 


A 






JMP 


NEXT 


J. U X 








> 






162 


011F 


8730 


A 






HEAD 


ORD, 7, LONG, ' 0 ' / 2 5 6 


163 


0120 
0 121 
0122 


4252 
414E 
43C8 


A 
A 
A 






. WO RD 


'BR' , 'AN' , 'CH'+0DD,BRAN-5 
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164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
1 74 



0123 0116 

0124 0125 

0125 C300 

0126 7B01 

0127 41F4 

0128 7901 

0129 19DF 



ZBRAN : 



.WORD 
LD 

AISZ 
BOC 
AISZ 
JMP 



. + 1 

0,0(SP) 
SP , 1 

Z , BRAN+ 1 

IP,1 

NEXT 



GET BOOLEAN 

POP STACK 

IF BOOLEAN = 0 

STEP IP OVER OFFSET 



***************************** *.* ******************** 

* LOOP CONTROL * 

*************************************************** 



1 75 


012A 


8628 


A 


HEAD 


ORD, 6, LONG, 


' C/256 


176 


012B 


4C4F 


A 


.WORD 


'LO'.'OP' ,' 


) '+EVEN , ZBRAN- 5 




012C 


4F50 


A 












0 1 2D 


A920 


A 












0 12E 


01 IF 


A 










177 


0 12F 


0130 


A 


XLOOP: .WORD 


. + 1 






1 78 


0130 


5001 


A 


LI 


0,1 




, INCREMENT = 1 


179 


0131 


C821 


A 


LD 


X,RP 




; GET RETURN POINTER 


180 


0132 


E200 


A 


ADD 


0, (X) 




, UPDATE 


181 


0133 


D200 


A 


ST 


0, (X) 




; INDEX 


182 


0134 


3780 


A 


SFLG 


CRY 




; SUBTRACT 


183 


0135 


9201 


A 


SUBB 


0,1(X) 




LIMIT 


184 


0136 


4BE5 


A 


BOC 


M , BRAN+1 




IF LIMIT > INDEX 


185 


0137 


7901 


A 


XLOOP1: AISZ 


IP, 1 




STEP IP OVER OFFSET 


186 


0138 


7A02 


A 


AISZ 


X, 2 




POP INDEX AND LIMIT 


187 


0139 


D821 


A 


ST 


X,RP 




FROM RETURN STACK 


188 


013A 


19CE 


A 


JMP 


NEXT 







189 








5 






190 


013B 


8 728 


A 


HEAD 


ORD, 7, LONG, ' C/256 


191 


013C 


2B4C 


A 


.WORD 


'+L' , '00' , 'P) '+ODD,XLOOP-5 




0 1 3D 


4F4F 


A 










013E 


50A9 


A 










013F 


012A 


A 








192 


0140 


0141 


A 


XPLOOP: .WORD 


. + 1 




193 


0141 


6100 


A 


PUSH 


IP ; 


SAVE IP 


194 


0142 


C700 


A 


LD 


1,0(SP) 


; GET INCREMENT 


195 


0143 


7B01 


A 


AISZ 


SP , 1 


; POP STACK 


196 


0144 


C821 


A 


LD 


X,RP 


; GET RETURN POINTER 


197 


0145 


C200 


A 


LD 


0, (X) 


; GET INDEX 


198 


0146 


6840 


A 


RADD 


1,0 


; ADD INCREMENT 


199 


0147 


D200 


A 


ST 


0,(X) 


; UPDATE INDEX 


200 


0148 


3780 


A 


SFLG 


CRY 


; SUBTRACT 


201 


0149 


9201 


A 


SUBB 


0,1(X) 


; LOOP LIMIT 


2 02 


0 1 4A 


4104 


A 


BOC 


Z ,PULL 


; IF INDEX - LIMIT 


? 0 3 

Cm \J ~J 


0 1 4R 


5 8 40 


A 


RXOR 


1,0 


; COMBINE SIGN BITS 


204 


014C 


6500 


A 


PULL 


IP 


; RESTORE IP 


205 


014D 


4BCE 


A 


BOC 


M , BRAN+ 1 


; IND <LIM XOR INC<0 


206 


014E 


19E8 


A 


JMP 


XLOOPl 




207 


014F 


6500 


A 


PULL: PULL 


IP ; RESTORE IP 


208 


0150 


19E6 


A 


JMP 


XLOOPl 





209 
210 
211 



*************************************************** 
* (DO), POPTWO, POP, I * 
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212 ;*************************************************** 

213 ; 



2 14 


0151 


8428 


A 




HEAD 


ORD, 4, LONG, ' (' 


/256 


215 


0152 


444F 


A 




.WORD 


'DO' , ' ) ' +EVEN , 


XPLOOP-5 




0153 


A920 


A 














0154 


013B 


A 












2 16 


0155 


0156 


A 


XDO : 


.WORD 


. + 1 






217 


0156 


C301 


A 




LD 


0,1(SP) 




; MOVE LIMIT 


2 18 


0157 


AC2 1 


A 




DSZ 


RP 




; TO RETURN 


2 19 


0158 


B021 


A 




ST 


0 , @RP 




; STACK 


220 


0159 


C300 


A 




LD 


0,0(SP) 




, MOVE INITIAL 


221 


015A 


AC 2 1 


A 




DSZ 


RP 




; INDEX TO RETURN 


222 


015B 


B021 


A 




ST 


0,@RP 




; STACK 


223 


015C 


7B01 


A 


POP2 : 


AISZ 


SP , 1 




, POP ONE ITEM 


224 


015D 


7B01 


A 


POP : 


AISZ 


SP , 1 




; POP ONE ITEM 


225 


015E 


19AA 


A 




JMP 


NEXT 






226 








» 










2 27 


015F 


81C9 


A 




HEAD 


ORD, 1 , SHORT, 'I 


'/256 


228 


0160 


0151 


A 




.WORD 


XDO-4 






2 29 


0161 


028A 


A 


I : 


.WORD 


R+l 


; GET FROM RTN STACK 


230 








5 











231 
232 
233 

234 
235 

236 



237 
238 
239 
240 
241 
242 
243 
244 
245 

246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 

259 
260 
261 



*************************************************** 
* DIGIT ■ * 

*************************************************** 



016 2 


8 544 

\J ~f t -r *~r 


A 

X1l 




HEAD 


ORD 5 T ONG ' D ' 


/256 


UIOJ 


A Q A 7 


A 




un p n 
• WU KiJ 


'TP' 'TT'-tATlTI 


1-2 


n i a a 

U I 0 H 




A 

A 












016 5 


0 1 5F 


A 












U X u u 


0 1 ft 7 


A 
i\ 


nTfiTT' 










n i ft 7 




A 
A 




t n 


u ) i ^ or / 




; GET ASCII 


0168 


78D0 


A 




AI SZ 


0 , -0030 






0169 


4B0B 


A 




BOC 


M , BAD 




; ASCII < 30 


0 1 6A 


9D0 C 


A 




SKG 


0 ,NINE 






0 16B 


1903 


A 




JMP 


CKBASE 




; 30 <= ASCII <= 39 


0 1 6C 


78F9 


A 




AI SZ 


0,-7 






0 1 61") 


9D0 9 


A 






0 NINE 






0 16E 


1906 


A 




JMP 


BAD 


; 39 < ASCII < 41 


0 1 6F 


9 F0 0 


A 


CKR AS E • 


SKG 


0 0 f SP } 






n i 7 n 


r j uu 


A 
A 




Qlf Ml? 
D JS. IN Ej 


U j U \ or ^ 






0171 


1903 


A 




JMP 


BAD 




; ASCII >= BASE 


0172 


D301 


A 




ST 


0, 1 (SP) 




; PUT DIGIT SECOND 


0173 


5001 


A 




LI 


0,1 




; AND TRUE FLAG 


0174 


1993 


A 




JMP 


PUT 




t ON BOTTOM 


0175 


5000 


A 


BAD : 


LI 


0,0 




; LEAVE FALSE FLAG 


0176 


98F6 


I 




JMP 


BIN 




ON BOTTOM 


0177 


0009 


A 


NINE : 


.WORD 


9 







0178 


8628 


A 


0179 


4649 


A 


017A 


4E44 


A 



*************************************************** 

* (FIND) * 

*************************************************** 

HEAD ORD , 6 ,LONG , ' ( ' / 25 6 

.WORD ' FI ' , ' ND ' , ' ) '+EVEN,DIGIT-4 
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017B 


A920 


A 










017C 


0162 


A 








262 


0 1 7D 


017E 


A 


PFIND: .WORD 


. + 1 




263 


01 7E 


6 100 


A 


PUSH 


IP 


, SAVE IP 


264 


017F 


7BFF 


A 


AISZ 


SP,-1 j 


, EXTEND STACK 


265 


0180 


CB01 


A 


LD 


X,1(SP) 


; GET NFA 


266 


0181 


A302 


A 


NEWNAM: LD 


0,@2(SP) 


; FIRST WD OF STRING 


267 


0182 


C600 


A 


LD 


1,(X) 


; FIRST WD OF NAME 


268 


0183 


5840 


A 


RXOR 


1,0 




269 


0184 


A923 


A 


AND 


0,X3FFF ; 


CLEAR START & PREC 


2 70 


0185 


B923 


A 


SKAZ 


0,X7F7F . 


; CMP LTH, FIRST CHAR 


271 


0186 


1915 


A 


JMP 


MISS ; 


IF MISMATCH 


2 72 


0 187 


450C 


A 


BOC 


NZ, FOUND ; 


, IF ONLY ONE CHAR 


273 


0188 


C702 


A 


LD 


1,2(SP) ; 


, INITIALIZE 


2 74 


0189 


D700 


A 


ST 


1,0(SP) 


STRING POINTER 


2 75 


018A 


7A01 


A 


CYCLE: AISZ 


X, 1 ; 


, BUMP NAME AND 


276 


018B 


8F00 


A 


ISZ 


0(SP) 


; STRING POINTERS 



277 


018C 


A300 


A 




LD 


Q,@0(SP) ; NEXT WD OF STRING 


278 


018D 


C600 


A 




LD 


1 , (X) ; NEXT WD OF NAME 


2 79 


018E 


5840 


A 




RXOR 


1,0 




280 


018F 


4201 


A 




BOC 


P,.+2 ; 


IF HI BYTE IS LAST, 


281 


0190 


A919 


A 




AND 


0,XFFOO ; 


CLEAR LOW BYTE 


282 


0191 


B917 


A 




SKAZ 


0,X7F7F ; 


COMPARE CHARS 


283 


0192 


1909 


A 




JMP 


MISS ; 


IF MISMATCH 


284 


0193 


41F6 


A 




BOC 


Z, CYCLE ; 


, IF NO STOP BIT 


285 


0194 


7A03 


A 


FOUND: 


AISZ 


X, 3 , 


; FORM PFA 


286 


0195 


DB02 


A 




ST 


X,2(SP) j 


; PUT THIRD ON STACK 


287 


0196 


A301 


A 




LD 


0,@1(SP) 


; FIRST WD OF NAME 


288 


0197 


2C10 


A 




SHR 


0,8,0 


; GET LENGTH BYTE 


289 


0198 


D301 


A 




ST 


0,i(SP) 


; PUT SECOND ON STACK 


290 


0199 


5001 


A 




LI 


0,1 


; BOOLEAN TRUE 


291 


019A 


6500 


A 




PULL 


IP 


; RESTORE IP 


292 


019B 


98F7 


I 




JMP 


PUT 


; BOOLEAN ON BOTTOM 


293 


019C 


B90E 


A 


MISS J 


SKAZ 


0,X8080 


; TEST FOR A STOP BIT 


294 


019D 


1903 


A 




JMP 


ENDNAM 


; IF PRESENT 


295 


019E 


7A01 


A 




AISZ 


X, 1 


; BUMP NAME POINTER 


296 


0 19F 


C200 


A 




LD 


0,(X) 


; GET NEXT WORD 


297 


01A0 


19FB 


A 




JMP 


MISS , 


, CONTINUE SCANNING 


298 


01A1 


CAO 1 


A 


ENDNAM: 


LD 


X,1(X) j 


FETCH LINK 


299 


01A2 


DB01 


A 




ST 


X,1(SP) ; 


NEW NFA 


300 


01A3 


7A00 


A 




AISZ 


X,0 ; 


TEST FOR LINK = 0 


301 


01A4 


19DC 


A 




JMP 


NEWNAM ; 


IF NOT DONE 


302 


01A5 


DB02 


A 




ST 


X,2(SP) ; 


PUT BOOLEAN FALSE 


303 


01A6 


6500 


A 




PULL 


ip ; 


RESTORE IP 


304 


01A7 


19B4 


A 




JMP 


P0P2 




305 
















306 


01A8 


3FFF 


A 


X3FFF: 


. WORD 


03FFF 




307 


01A9 


7F7F 


A 


X 7 F 7 F : 


• WORD 


07F7F 




308 


01AA 


FFOO 


A 


XFFOO : 


.WORD 


OFFOO 




309 


01AB 


8080 


A 


X8080: 


.WORD 


08080 





310 
311 
3 12 
313 
314 



*************************************************** 

* ENCLOSE * 

*************************************************** 
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315 








; SCAN 


SOURCE 


STRING, PACKED TWO 


CHARACTERS/WORD, 


316 








; FOR 


DELIMITER ON TOP OF STACK, 


OR ASCII NULL. 


317 


















318 


01AC 


8745 


A 




HEAD 


ORD, 7, LONG, 'E'/256 




319 


01AD 


4E43 


A 




.WORD 


'NC , 'LO' , 'SE'+ODD 


, PFIND-5 




0 1AE 


4C4F 


A 














0 1AF 


53C5 


A 














01B0 


0178 


A 












320 


01B1 


01B2 


A 


ENCL : 


.WORD 


. + 1 






321 


01B2 


6100 


A 




PUSH 


IP i 




SAVE IP 


322 


01B3 


7BFE 


A 




AISZ 


SP ,-2 




EXTEND STACK 


323 


01B4 


C302 


A 




LD 


0,2(SP) 




GET DELIMITER 


324 


01B5 


A932 


A 




AND 


0 , RMASK , 




USE LOWER 


325 


01B6 


5D00 


A 




RCPY 


0,1 




BYTE ONLY 



326 


01B7 


2910 


A 




SHL 


327 


01B8 


6900 


A 




RADD 


328 


01B9 


C303 


A 




LD 


329 


01BA 


3800 


A 




PFLG 


330 


01BB 


2403 


A 




ROR 


331 


01BC 


D300 


A 




ST 


332 


01BD 


5200 


A 




LI 


333 


01BE 


A300 


A 


NEW1 : 


LD 


334 


0 1BF 


5840 


A 




RXOR 


335 


01C0 


4803 


A 




BOC 


336 


01C1 


B925 


A 




SKAZ 


337 


01C2 


1908 


A 




JMP 


338 


01C3 


7A0 1 


A 




AISZ 


339 


01C4 


B923 


A 


RT1 : 


SKAZ 


340 


01C5 


1904 


A 




JMP 


341 


01C6 


7A01 


A 




AISZ 


342 


01C7 


3800 


A 




PFLG 


343 


01C8 


8F00 


A 




ISZ 


344 


01C9 


19F4 


A 




JMP 


345 


01CA 


3880 


A 


RNDEL : 


SFLG 


346 


01CB 


DB02 


A 


LNDEL: 


ST 


347 


01CC 


4810 


A 




BOC 


348 


01CD 


A300 


A 


NEW2 s 


LD 


349 


01CE 


DB01 


A 




ST 


350 


01CF 


B917 


A 




SKAZ 


351 


01D0 


1905 


A 




JMP 


352 


01D1 


DBOO 


A 


NUL : 


ST 


353 


01D2 


FB02 


A 




SKNE 


354 


01D3 


8F01 


A 




ISZ 


355 


01D4 


6500 


A 




PULL 


356 


01D5 


98F8 


I 




JMP 


357 


01D6 


7A0 1 


A 


NONUL: 


AISZ 


358 


01D7 


5840 


A 




RXOR 


359 


01D8 


B90E 


A 




SKAZ 


360 


01D9 


1903 


A 




JMP 


361 


01DA 


DBOO 


A 


DELIM: 


ST 


362 


01DB 


6500 


A 




PULL 


363 


01DC 


9 8F8 


I 




JMP 


364 


01DD 


5840 


A 


RT2 : 


RXOR 


365 


01DE 


DB01 


A 




ST 


366 


01DF 


A908 


A 




AND 



PACE ASSEMBLER REV-A 05/23/75 
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367 


01E0 


41F0 


A 




BOC 


368 


01E1 


7A0 1 


A 




AISZ 


369 


0 1E2 


5840 


A 




RXOR 


3 70 


01E3 


A904 


A 




AND 


371 


0 1E4 


41F5 


A 




BOC 


3 72 


0 1E5 


8F00 


A 




ISZ 


373 


01E6 


19E6 


A 




JMP 


374 


01E7 


FFOO 


A 


LMASK: 


.WORD 


375 


01E8 


OOFF 


A 


RMASK: 


.WORD 


376 








» 





1,8,0 ; DOUBLE UP 

0,1 ; DELIMITER 

0,3(SP) ; GET BYTE ADDRESS 
LINK 

0,1,1 ; CONVERT ADDRESS 

0,0(SP) ; SAVE WORD ADDRESS 

X,0 ; CLEAR COUNT 

0,@0(SP) ; GET NEXT 2 BYTES 

1,0 ; COMPARE WITH D EL IMS 

LINK , RT 1 ; IF START ADDR ODD 

0, LMASK ; TEST LEFT BYTE 

LNDEL ; IF NOT DELIM 

X,l ; BUMP COUNT 

0, RMASK ; TEST RIGHT BYTE 

RNDEL ; IF NOT DELIM 

X,l ; BUMP COUNT 

LINK ; LEFT BYTE OF 

O(SP) ; FOLLOWING WORD 

NEW1 ; IS NEXT 

LINK ; REMEMBER WHICH BYTE 

X,2(SP) ; SET FC OFFSET 

L INK , RT2 ; RESUME AT SAME BYTE 

0,@0(SP) ; GET DATA 

X,1(SP) ; MAYBE EW OFFSET 

0, LMASK . ; TEST FOR NULL 

NONUL 

X,0(SP) ; NC OFFSET 

X,2(SP) ; IS NC = FC? 

1(SP) ; YES, BUMP EW 

IP ; RESTORE IP 
NEXT 

X, 1 ; BUMP COUNT 
1,0 

0, LMASK ; TEST FOR DELIM 
RT2 

X,0(SP) ; NC OFFSET 

IP ; RESTORE IP 
NEXT 
1,0 

X,1(SP) ; MAYBE EW 
0 , RMASK 



Z,NUL ; TEST FOR NULL 

X,l ; BUMP COUNT 

1,0 

0 , RMASK 

Z, DELIM ; TEST FOR DELIM 

0(SP) ; BACK FOR 

NEW2 ; NEXT WORD 

0FF00 
000FF 



377 
3 78 
379 
380 
381 
382 
383 
384 



385 
386 
387 
388 

389 
390 
391 
392 



*************************************************** 

* TERMINAL VECTORS * 

*************************************************** 

THESE WORDS VECTOR TO INSTALLATION-SPECIFIC CODE 



393 
394 
395 
396 

397 
398 
399 
400 
401 
402 
403 
404 



01E9 


8445 


A 




HEAD 


ORD , 4 , LONG, ' E ' / 2 5 6 


01EA 


4D49 


A 




.WORD 


'MI' , 'T'+EVEN,ENCL-5 


0 1 E B 


D4 2 0 


A 








U 1 Ei L. 


n i a f 
U IAL. 


A 

A 








n 1 17 n 

U 1 Ei U 


f) A AO 


A 
ft 


Ei Fl 1 1 . 


On p T\ 

iWU rvU 


PPMT T 


Ainu 
U 1 Ei Ei 


Q 1 /. B 


A 

A 


» 


head 


Ann *J t aiia ' jr * / O C £ 

UKD, J,LUNb, is. /cjO 


n l v v 

U l Ei r 




A 
ft 




• WU t\.U 


Ej I tU JJ U , Hi iM 1 1 — I) 


01F0 


01E9 


A 








01F1 


0A4D 


A 


KEY : 
• 


.WORD 


PKEY 


0 1 F Z 


o y j f 


A 

A 


» 


HEAD 


ORD, 9, LONG, I / Zjd 


U 1 r j 


/. /■ ^ 

J H l i D 


A 
A 




T.TO X> T\ 
• WU KIJ 


' T IT ' ' "DUl ' ' T XT' 'AT 'XrtTM^ 17t?V 
1 a , Krl , 1 IN , AL lUUJJ , l\.Eii 


0 1F4 


5 2 4D 


A 








01F5 


494E 


A 








01F6 


41CC 


A 








01F7 


01EE 


A 








01F8 


0A4F 


A 


QTERM: 


.WORD 


PQTERM 


01F9 


8243 


A 


> 


HEAD 


ORD , 2 ,L0NG , ' C f / 25 6 


01FA 


D220 


A 




.WORD 


'R'+EVEN, QTERM- 6 


0 1FB 


01F2 


A 








01FC 


0A53 


A 


CR: 


.WORD 


PCR 



*************************************************** 

* MOVE * 

*************************************************** 

NOTE THAT THIS WORD MOVES DATA IN 16-BIT UNITS. 



405 


01FD 


844D 


A 


HEAD 


ORD, 4 , LONG, ' M ' / 2 5 6 


406 


01FE 


4F56 


A 


.WORD 


'OV , 'E'+EVEN,CR-3 




0 IFF 


C520 


A 








0200 


01F9 


A 






407 


0201 


0202 


A MOVE: 


.WORD 


. + 1 


408 


0202 


C300 


A 


LD 


0,0(SP) ; GET COUNT 


409 


0203 


410A 


A 


BOC 


Z,M0VE2 ; IF ZERO 


410 


0204 


6100 


A 


PUSH 


IP ; SAVE IP 


411 


0205 


5D00 


A 


RCPY 


0,1 



PACE ASSEMBLER REV-A 05/23/75 
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D ICTIONARY 



412 0206 CB02 A 

413 0207 C200 A MOVE1: 

414 0208 B301 A 

415 0209 7A01 A 

416 020A 8F01 A 

417 020B 79FF A 

418 020C 19FA A 



LD X,2(SP) 

LD 0,(X) 

ST 0,@1(SP) 

AISZ X,l 

ISZ KSP) 

AISZ 1,-1 

JMP MOVEl 



SOURCE ADDRESS 
GET DATA ITEM 
STORE AT DEST 
INCREMENT 

ADDRESSES 
DECREMENT COUNT 
UNTIL DONE 



419 
420 
421 
422 
423 
424 
425 
426 
427 
428 

429 
430 

431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 

443 
444 
445 
446 
447 
448 
449 
450 
451 
452 

453 
454 
455 
456 
457 
458 
459 

460 
461 
462 
463 
464 



020D 6500 A 
020E 7B03 A 
020F 98F8 I 



PULL IP 
MO V E 2 : AISZ SP,3 
JMP NEXT 



RESTORE IP 
POP ARGUMENTS 



0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
021A 
021B 
021C 
021D 

021E 
021F 
0220 
0221 
0222 
0223 



8255 
AA2 0 
0 1FD 
0214 
6100 
C300 
5 100 
5210 A 
7000 A 
6940 
7400 
4A02 
E701 
9105 
7AFF 
19F9 
D701 
6500 
98F7 
FFFF 



0224 
0225 
0226 
0227 
0228 
0229 
022A 
022B 
022C 
022D 

022E 
022F 

0230 
0231 
0232 



8255 
AF20 
0210 
0228 
6100 
C701 
C302 
CBOO 
7201 
DB01 

5210 
2803 
2103 
2003 
E701 



A 
A 
A 
A 
A 
A 
A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
I 
A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



************************************************** 

* U*, FOR 16 BITS * 

*************************************************** 



HEAD 
.WORD 

USTAR: .WORD 
PUSH 
LD 
LI 
LI 
CAI 

LP: RADD 
RADC 
BOC 
ADD 
SUBB 

TEST: AISZ 
JMP 
ST 

PULL 
JMP 

MINUS1: .WORD 



ORD, 2, LONG, 'U' /256 
'*'+EVEN,MOVE-4 



. + 1 

IP 

0,0(SP) 
1,0 
X, 16 
0,0 
1,1 

0. 0 

CSET, TEST 

1, KSP) 

0, MINUS1 
X,-l 

LP 

1, KSP) 
IP 

PUT 
-1 



SAVE IP 

GET MULTIPLIER 
CLEAR RESULT 
LOOP COUNT 
COMPLEMENT MPLR 
SHIFT LO INTO CRY 
ROTATE MPLR LEFT 
TEST FOR ADD 
ADD IF MPLR BIT=1 
ADD CARRY TO HI 
DECR LOOP COUNT 
REPEAT UNTIL LIMIT 
PUT LO-ORDER SECOND 
RESTORE IP 
HI-ORDER ON BOTTOM 



*************************************************** 

* U/, FOR 32 BITS * 

*************************************************** 



HEAD 
.WORD 

USLASH: -WORD 
PUSH 
LD 
LD 
LD 
CAI 
ST 
LI 
SHL 

POOL: ROL 
ROL 
ADD 



ORD, 2, LONG, 'U' /256 
'/'+EVEN,USTAR-3 



. + 1 

IP 

1,KSP) 
0,2(SP) 
X,0(SP) 
X,l 

X,1(SP) 
X, 16 
0,1,1 

1,1,1 

0. 1.1 

1, KSP) 



SAVE IP 

HI-ORDER DIVIDEND 
LO-ORDER DIVIDEND 
GET DIVISOR 
SAVE -(DIVISOR) FOR 

CONVENIENCE 
LOOP COUNT 
SHIFT LO INTO LINK 
ROTATE HI WITH LINK 
ROTATE HI INTO QUOT 
SUBTR DIVSR FROM HI 
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465 0233 9107 A 

466 0234 4301 A 

467 0235 E700 A 



SUBB 

BOC 

ADD 



0,MIN1 
BITO , .+2 
1,0(SP) 



ADD CARRY TO QUOT 
IF QUOT BIT - 0, 
ADD DIVISOR BACK 



468 


0236 


7AFF 


A 






AISZ 


X,-l ; 


DECREMENT LOOP CNT 


469 


0237 


19F8 


A 






JMP 


POOL ; 


REPEAT UNTIL LIMIT 


470 


0238 


D702 


A 






ST 


1,2(SP) ; 


REMAINDER SECOND 


471 


0239 


6500 


A 






PULL 


IP ; 


, RESTORE IP 


4 72 


0 2 3A 


1967 


A 






JMP 


BIN ; 


, QUOTIENT ON BOTTOM 


473 


023B 


FFFF 


A 


MINI : 


.WORD 


-1 




474 


















475 










******************************* * * ****************** 


476 










* 




LOGICALS 


* 


477 










*************************************************** 


478 


















479 


023C 


8341 


A 






HEAD 


ORD , 3 , LONG ,'A'/256 


480 


023D 


4EC4 


A 






.WORD 


'ND'+ODD,USLASH-3 




023E 


0224 


A 












481 


023F 


0240 


A 


AND: 


.WORD 


. + 1 




482 


0240 


C301 


A 






LD 


0,1(SP) 


, GET SECOND 


483 


0241 


AB00 


A 






AND 


0,0(SP) 


AND WITH BOTTOM 


484 


0242 


195F 


A 






JMP 


BIN 


; REMOVE ARGS 


485 








5 








486 


0243 


824F 


A 






HEAD 


ORD, 2 , LONG, '0' /256 


487 


0244 
0245 


D220 
023C 


A 
A 






• WORD 


'R'+EVEN, AND-3 




488 


0246 


0247 


A 


OR: 


.WORD 


. + 1 




489 


0247 


C301 


A 






LD 


0,1(SP) ; 


GET SECOND 


490 


0248 


A700 


A 






OR 


0,0(SP) , 


OR WITH BOTTOM 


491 


0249 


1958 


A 






JMP 


BIN ; 


, REMOVE ARGS 


492 








» 








493 


024A 


8358 


A 






HEAD 


ORD , 3 , LONG , 'X' /256 


494 


024B 
024C 


4FD2 
0243 


A 
A 






.WORD 


'OR'+ODD,OR-3 




495 


024D 


024E 


A 


XOR: 


.WORD 


. + 1 




496 


024E 


C301 


A 






LD 


0,1(SP) 


; GET SECOND 


497 


024F 


CBOO 


A 






LD 


X,0(SP) 


; GET BOTTOM 


498 


0250 


5880 


A 






RXOR 


X, 0 


; FORM EXCLUSIVE OR 


499 


0251 


1950 


A 






JMP 


BIN 


; REMOVE ARGS 


500 


















501 










j*************************************************** 


502 










. * 




STACK INITIALIZATION * 


503 










.*************************************************** 


504 


















505 


0252 


8353 


A 






HEAD 


ORD, 3, LONG, 'S'/256 


506 


0253 
0254 


50C0 
024A 


A 
A 






.WORD 


'P@'+ODD,XOR-3 




507 


0255 


0256 


A 


SPAT : 


.WORD 


. + 1 




508 


0256 


5CC0 


A 






RCPY 


SP,0 ; 


STACK POINTER 


509 


0257 


98F9 


I 






JMP 


PUSH ; 


PUSH ON STACK 


5 10 








• 
f 








511 


0258 


8353 


A 






HEAD 


0RD,3,L0NG,'S'/256 


512 


0259 
025A 


50A1 
0252 


A 
A 






.WORD 


'P! '+0DD,SPAT-3 




5 13 


025B 


025C 


A 


SPSTOR: 


.WORD 


. + 1 




5 14 


025C 


C822 


A 






LD 


X,UP ; 


GET USER POINTER 
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D 1 D 


o 9 


C TT 0 ^ 
^ Hi U J 


A 




t n 


SP, 3 (X) 




; FETCH SP0 


5 1 6 


f) 2 5F 


9 8F8 

7 or o 


T 

X. 




TMP 

our 


NEXT 








5 1 7 








5 












J I o 


U Z 3 r 


o J 3 Z 


A 




I7T7 An 

n £i AD 


0RD, 3, 


LONG, ' 


R' 


/256 




o 9 6 o 


5 OA 1 


A 




_ WO Rfl 


'Pi '+0DD, SPST0R-3 




0 9 6 1 


0 9 S 8 

W J o 


A 
A 














5 9 0 


fl 9 6 9 

u t. U i 


0 9 6 1 


A 
A 


RpCTftR • 
Xv x O ivAi 


• W KJ U*. ij 


.4-1 








5 2 1 


0263 


C82 2 


A 




LD 


X,UP 






; GET USER POINTER 


5 22 


0264 


C204 


A 




LD 


0,4(X) 






; FETCH R0 


5 9 1 

_J X. J 


0 2 6 5 

\J Z~ \J . J 


DO 2 1 

U vj z_ X 


A 




ST 


0,RP 






; SET RETURN POINTER 


5 24 


0266 


98F8 


I 




JMP 


NEXT 








5 2 5 








# 

» 












5 2 6 

w> Z- \J 


0 2 6 7 

\J Z_ \J 1 


8 2 1R 

U L J JD 


A 




HEAD 


ORD , 2 , 


LONG , ' 


» 


/256 


527 


0268 


D3 20 


A 




• WORD 


'S'+EVEN,RPST0R-3 




0 9 6 9 
\j t- \i j 


0 2 5 F 

V/ Z. _^ X 


A 

A 














5 2 8 


0 9 6 A 


0 2 6R 

u z. U U 


A 

XX 


S FMT ^ • 


• W0 RD 


. + 1 








5 2 9 

~j ±- y 


0 26B 


AO 2 1 


A 




LD 


0, @RP 






; RESTORE 


D JU 




c r» n n 
3 V u u 


A 




RCPY 


0,IP 






; OLD IP 


c o i 
J Jl 


U Z Oi) 


or o i 


A 

A 




ISZ 


RP 






; POP RETURN STACK 


5 19 
j j ^ 


0 9 6F 


9 8F8 

y o x o 


T 
J. 




JMP 


NEXT 








S 3 1 
j j j 




















J Jt 








*********************************************** 


5 15 
.j j -j 








; * 




RETURN STACK 


WORDS * 


S 1 6 

J J o 








**************************************************** 


^ ^ 7 
DDI 




















5 18 


0 2 6 F 


8 5 AC 

U J 4 Vy 


A 




ur An 
n t, AD 


ORD , 5 , 


LONG, ' 


L' 


/256 


5 39 


0 2 7 0 


4 5 4 1 


A 




TTA T1TV 

• WO RD 


'EA' , ' 


VE'+ODD, 


SEMIS-3 




0 9 7 1 
U Z / L 


J D V_« D 


A 
















0 2 7 2 


0 26 7 


A 














5 40 


0 2 7 3 


0 2 7 4 


A 


LEAVE : 


.WORD 


. + 1 








5 A 1 


0 2 7 A 


r 8 9 1 


A 




LD 


X,RP 






; GET RETURN POINTER 


5 4 2 


0 2 7 5 


C2 00 


A. 




LD 


0,0(X) 






; GET LOOP INDEX 


5 43 


0276 


D20 1 


A 




ST 


0,1(X) 






; MAKE LIMIT EQUAL 


5 44 


0 2 7 7 


9 8F8 

7 u r u 


T 

X 




JMP 


NEXT 








5 45 




















5 4 6 


0 9 7 8 


8 9 IF 

O i. J Ij 


A 

A 




HEAD 


ORD , 2 , 


LONG , ' 


>' 


/256 


5 A 7 


0 9 7 Q 


n 9 9 0 
jj z z u 


A 
A 




.WORD 


'R'+EVEN, LEAVE 


-4 




0 9 7 A 


0 9 6 F 


A 

A 














/. fl 
J O 


U Z / Jj 


n 9 7 r 
U Z / L- 


A 

A 


TOR: 


.WORD 


. + 1 










n 9 7 r 

U Z / L. 


A P 9 1 
ALi 1 


A 

A 




DSZ 


RP 






; EXTEND RETURN STACK 


5 50 


0 2 7D 


C3 00 


A 




LD 


0, (SP) 






; GET DATA ITEM 


5 51 


0 2 7F 

v/ Z- / JJj 


R 0 9 1 

D U i 


A 

A 




ST 


0 , @RP 






; PUT ON RETURN STACK 


5 5 9 


O 9 7 F 


Q 8 F A 
7 o r a 


T 

JL 




JMP 


POP 






; POP FROM DATA STACK 


5 53 








» 












5 5 A 


0 9 8 0 
w z. o w 


8 9 5 9 

O £. D £. 


A 

A 




HEAD 


ORD, 2 , 


LONG, ' 


R'/256 


^ 

j j j 


ft 9 fl 1 


B £i Z U 


A 
A 




.WORD 


'>'+EVEN,T0R 


-3 






0 9 8 9 

U «c O 


0 9 7 8 


A 
A 














S S 6 

D J \J 


V Z O -J 


n 9 a a 


A 
A 


FROMR : 


.WORD 


. + 1 








S 5 7 

DDI 


n 9 fl a 


a n 9 i 


A 




LD 


0, @RP 






; GET FROM RETURN STK 


5 5 8 

-7 KJ 


0 9 8 5 

\J Mm O -J 


8 r 9 l 


A 

A 




ISZ 


RP 






; POP RETURN STACK 


^ S Q 

J 3 J 


fi 9 fi A 
U Z O D 


Q Q XT" Q 


T 
1 




JMP 


PUSH 






; PUSH ON DATA STACK 


560 








» 












561 


0287 


81D2 


A 




HEAD 


ORD , 1 , SHORT, 'R 


'/256 


562 


0288 


0280 


A 




.WORD 


FROMR- 


3 






563 


0289 


028A 


A 


R : 


.WORD 


. + 1 
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564 
565 
566 
567 
568 
569 
570 
571 
572 

573 
574 
575 

5 76 
577 
578 
579 
580 

581 

582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 

599 
600 
601 

602 
603 
604 
605 
606 
607 
608 
609 

6 10 
6 1 1 
6 12 

6 13 



028A A021 A 
028B 98F9 I 



LD 
JMP 



0,@RP 
PUSH 



; GET NONDESTRUCTIVE 
; PUSH ON DATA STACK 



028C 
028D 
028E 
028F 
0290 
0291 
0292 
0293 

0294 
0295 
0296 
0297 
0298 
0299 
0 2 9A 
029B 
029C 



8230 
BD2 0 
0287 
0290 
5000 
F300 
5001 
98F7 

8230 
BC20 
028C 
0298 
5000 
9F00 
98F7 
5001 
98F7 



029D 
029E 
029F 
02A0 
02A1 
02A2 
02A3 

02A4 
02A5 
02A6 
02A7 
02A8 
02A9 
02AA 
02AB 
02AC 
0 2AD 
02AE 

02AF 

02B0 
02B1 
02B2 
02B3 



81AB 
0294 
02A0 
C300 
E301 
7B01 
98F7 

8244 
AB20 
029D 
02A8 
C303 
E301 
D303 
C302 
CBOO 
7480 
D302 

98FB 



A 
A 
A 
A 
A 
A 
A 
I 

A 
A 
A 
A 
A 
A 
I 
A 
I 



A 
A 
A 
A 
A 
A 
I 

A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

I 



8 5 4D A 

494E A 

55D3 A 

02A4 A 



****************************** * * ******************* 

* TESTS AND LOGICALS * 

*************************************************** 



ZEQU: 



ZLESS : 



HEAD 
.WORD 

.WORD 
LI 

SKNE 

LI 

JMP 

HEAD 
.WORD 

.WORD 

LI 

SKG 

JMP 

LI 

JMP 



ORD , 2 , L ONG , '0' /256 
'='+EVEN,R-2 



. + 1 

0,0 

0,0(SP) 

0,1 

PUT 



RETURN ZERO 

IF DATA NONZERO 
OTHERWISE RETURN 1 



ORD, 2, LONG, '0' /256 
'<'+EVEN,ZEQU-3 



. + 1 

0,0 

0,0(SP) 
PUT 

0,1 

PUT 



; RETURN ZERO 

; IF DATA <= ZERO 

; OTHERWISE RETURN 1 



*************************************************** 

* MATH, BINARY * 

*************************************************** 



PLUS : 



BIN : 



HEAD 

.WORD 

.WORD 

LD 

ADD 

AISZ 

JMP 

HEAD 
.WORD 



ORD, 1 , SHORT, '+' /256 

ZLESS-3 

. + 1 



0,0(SP) 
0,1(SP) 
SP , 1 
PUT 



ADD BOTTOM TWO 

STACK VALUES, 
REMOVE ONE ARG 
REPL OTHER W/RESULT 



ORD, 2, LONG, 'D'/256 
'+'+EVEN,PLUS-2 



DPLUS 



.WORD 
LD 


. + 1 

0,3(SP) 




AUGEND LOW-ORDER 


ADD 


0,1(SP) 




ADDEND LOW-ORDER 


ST 
LD 


0,3(SP) 
0, 2(SP) 




; SUM LOW-ORDER 
, AUGEND HI-ORDER 


LD 


X,0(SP) 




, ADDEND HI-ORDER 


RADC 
ST 


X, 0 

0, 2 (SP) 




; ADD WITH CARRY 
SUM HI-ORDER 


JMP 


POP2 






HEAD 


ORD, 5 , LONG, 


'M'/256 


.WORD 


'IN', 'US '+ODD ,DPLUS-3 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
D ICTIONARY 



614 02B4 02B5 A 

615 02B5 C300 A 

616 02B6 7001 A 

617 02B7 98F7 I 
6 18 

619 02B8 8644 A 

620 02B9 4D49 A 
02BA 4E55 A 
02BB D320 A 
02BC 02B0 A 

621 02BD 02BE A 

622 02BE 3780 A 

623 02BF 5000 A 

624 02C0 9301 A 

625 02C1 D301 A 

626 02C2 5000 A 

627 02C3 9300 A 

628 02C4 98F7 I 
629 

630 
631 
632 
633 

634 02C5 844F A 

635 02C6 5645 A 
02C7 D220 A 
02C8 02B8 A 

636 02C9 02CA A 

637 02CA C301 A 

638 02CB 98F9 I 
639 

640 02CC 8444 A 

641 02CD 524F A 
02CE D020 A 
02CF 02C5 A 

642 02D0 015D A 
643 

644 02D1 8453 A 

645 0 2D2 5741 A 
02D3 D020 A 

02D4 02CC A 

646 02D5 02D6 A 

647 02D6 C301 A 

648 02D7 CBOO A 

649 02D8 DB01 A 

650 02D9 98F7 I 
651 

652 02DA 8344 A 

653 02DB 55D0 A 
02DC 02D1 A 

654 02DD 02DE A 

655 02DE C300 A 

656 02DF 98F9 I 
657 



MINUS 



• WORD 
LD 
CAI 
JMP 



. + 1 

0, (SP) 

0,1 

PUT 



; GET STACK VALUE 

: AND FORM 2'S COMP 



HEAD ORD, 6, LONG, 'D' /256 

.WORD 'MI ' , 'NU' , ' S '+EVEN,MINUS-4 



DMINUS 



.WORD 


. + 1 






SFLG 


CRY 




CLEAR BORROW 


LI 


0,0 


> 


SUBTRACT LO-ORDER 


SUBB 


0,1(SP) 


» 


FROM 0 


ST 


0,1(SP) 






LI 


0,0 




SUBTRACT HI-ORDER 


SUBB 


0,0(SP) 


• 

* 


FROM 0 WITH BORROW 


JMP 


PUT 







*************************************************** 

* STACK MANIPULATION * 

*************************************************** 



HEAD ORD, 4 ,L0NG, '0' /256 

.WORD ' VE' , 'R'+EVEN, DMINUS- 5 



OVER 



.WORD 

LD 

JMP 



. + 1 

0,1(SP) 
PUSH 



GET SECOND VALUE 
PUSH ON STACK 



HEAD ORD, 4 ,LONG, 'D' /256 

.WORD 'RO' , 'P'+EVEN,OVER-4 



DROP 



.WORD 



POP 



VECTOR DIRECTLY 



HEAD 
.WORD 



ORD, 4, LONG, 'S'/256 
'WA' , 'P'+EVEN,DROP-< 



SWAP 



.WORD 

LD 

LD 

ST 

JMP 



. + 1 

0, 1 (SP) 
X,0 (SP) 
X,1(SP) 
PUT 



EXCHANGE TOP 
TWO STACK 
VALUES 



DUP: 



HEAD ORD, 3 ,LONG, 'D' /256 

.WORD 'UP'+ODD , SWAP-4 

.WORD .+1 

LD 0,0(SP) 

JMP PUSH 



GET BOTTOM VALUE 
PUSH A COPY OF IT 



658 



;*************************************************** 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



659 
660 
661 
662 
663 

664 
665 
666 
667 
668 
669 
670 
671 
672 
673 



674 
6 75 
6 76 
677 
6 78 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 



692 
693 
694 
695 
696 
697 
698 
699 
700 
701 



* MEMORY INCREMENT, COMPLEMENT, ADDRESS CONVERT * 
*************************************************** 



02E0 


822B 


A 


HEAD 


ORD , 2 , LONG, '+' 


/256 


02E1 


A120 


A 


.WORD 


' ! '+EVEN,DUP-3 




02E2 


02DA 


A 








02E3 


02E4 


A 


PSTORE: .WORD 


. + 1 




02E4 


A300 


A 


LD 


0,@0(SP) 


; GET VALUE 


02E5 


E301 


A 


ADD 


0,1(SP) 


; ADD INCREMENT 


02E6 


B300 


A 


ST 


0,<a0(SP) 


; STORE AT ADDRESS 


02E7 


98FB 


I 


JMP 


POP2 


; REMOVE BOTH 



02E8 


8654 


A 


02E9 


4F47 


A 


02EA 


474C 


A 


02EB 


C520 


A 


02EC 


02E0 


A 


02ED 


02EE 


A 


02EE 


CBO 1 


A 


02EF 


3800 


A 


02F0 


2603 


A 


02F1 


DB01 


A 


02F2 


C200 


A 


02F3 


CBOO 


A 


02F4 


4801 


A 


02F5 


2A10 


A 


02F6 


5880 


A 


02F7 


B301 


A 


02F8 


98FB 


I 



02F9 
02FA 
0 2FB 
0 2FC 
02F9 1 
02FE 
02FF 
0300 



8442 

5954 

C520 

02E8 

02FE 

C300 
6800 A 
98F7 I 



0301 8443 A 

0302 454C A 

0303 CC20 A 

0304 02F9 A 



THE FOLLOWING WORD EXPECTS A BYTE P S EUDO- ADDRE S S 

HEAD ORD , 6 ,LONG, 'T' /256 

.WORD 'OG' , 'GL' , 'E'+EVEN,PSTORE-3 



TOGGLE 



.WORD 


. + 1 


LD 


X,1(SP) 


PFLG 


LINK 


ROR 


X,l,l 


ST 


X,1(SP) 


LD 


0, (X) 


LD 


X,0(SP) 


BOC 


LINK, .+2 


SHL 


X, 8 , 0 


RXOR 


X, 0 


ST 


0,(31 (SP) 


JMP 


POP2 



GET BYTE ADDRESS 
CONVERT TO 

WORD ADDRESS 
SAVE FOR LATER 
GET DATA WORD 
GET BIT PATTERN 
EVEN BYTE ADDRESS 

MEANS LEFT BYTE 
COMPL SELECTED BITS 
REPLACE DATA WORD 



THE FOLLOWING WORD CONVERTS A 15-BIT WORD! 
ADDRESS TO A 16-BIT BYTE PS EUDD- ADDRES S . 



HEAD: ORD, 4.LONG, '3'/256 
.WORD: ' YT' , ' E'+EVEN, TOGGLE-5 



BYTE : 



.word: 

LD' 
RADD 
JMP 



. + 1 

0 , 0 ( S P ) 
0,0 
PUT 



GET WORD 1 A DDRESS 
MULTIPLY BY 2 



THE FOLLOWING WORD CONVERTS A 16-BIT BYTE 
PSEUDO-ADDRESS TO A 15-BIT WORD ADDRESS. 

HEAD ORD, 4, LONG, 'C/256 

.WORD 'EL' , 'L'+EVEN,BYTE-4 



702 0305 0306 A 

703 0306 C300 A 

704 0307 2C02 A 

705 0308 98F7 I 



CELL: 



.WORD 
LD 
SHR 
JMP 



. + 1 

0,0(SP) 

0,1,0 

PUT 



GET BYTE ADDRESS 
DIVIDE BY 2 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



706 
707 
708 
709 
7 10 

7 11 
712 

713 
714 
715 
7 16 
7 17 
718 
7 19 
720 

721 
722 
723 
724 
725 
726 

727 
728 
729 
730 

731 
732 
733 
734 
735 
736 
737 
738 

739 
740 
741 
742 

743 
744 
745 
746 
747 
748 
749 
750 
751 



*************************************************** 

* MEMORY FETCH AND STORE * 

*************************************************** 



0309 


8 ICO 


A 




HEAD 


ORD, 1 , SHORT, '@ 


'/256 


030A 


0301 


A 




.WORD 


CELL-4 






030B 


030C 


A 


AT : 


.WORD 


. + 1 






030C 


A300 


A 




LD 


0,@0(SP) 


; GET VALUE 


0 3 0D 


98F7 


I 




JMP 


PUT 












; 

; THE 


FOLLOWING WORD EXPECTS 


A BYTE PSEUDO-ADDRESS 


0 3 0E 


8243 


A 


; 


H IF AT) 


nun 9 t own * c ' 


/256 


0 3 OF 


C020 


A 






'ffl'-H?VFN AT— 9 






0310 


0309 


A 












0 311 


0 312 




CAT : 


TJfl P TV 


• T L 






0312 


CBOO 


A 




t n 

Li D 


y n ( q p ^ 

A , U v D ir ) 




; GET BYTE ADDRESS 


0313 


3800 


A 




PT7T c 

JT r Li VJ 


T T MT? 

Jj J. IN JV. 




; CONVERT TO 


0314 


2603 


A 




x> r\ d 
KU K 


V 1 1 
A , 1 , 1 




; WORD ADDRESS 


0315 


C200 


A 




T TV 

LD 


0 , ( X) 




; GET DATA WORD 


0316 


4801 


A 




BOC 


LINK .+2 




; LINK = 0 MEANS 


0317 


2C10 


A 




SHR 


0,8,0 




; LEFT BYTE 


0318 


A901 


A 




AND 


0,XFF 




; CLEAR UNWANTED BYTE 


0319 


98F7 


I 




JMP 


PUT 






031A 


OOFF 


A 


XFF: 


.WORD 


OOFF 






031B 


81A1 


A 


• 
» 


HEAD 


ORD, 1 , SHORT, ' ! 


'/256 


031C 


030E 


A 




.WORD 


CAT-3 






031D 


031E 


A 


STORE : 


.WORD 


. + 1 






031E 


C301 


A 




LD 


0,1(SP) 




; GET VALUE 


031F 


B300 


A 




ST 


0,@0(SP) 




, STORE AT ADDRESS 


0320 


98FB 


I 




JMP 


POP2 




, REMOVE BOTH 








; THE 


FOLLOWING 


WORD EXPECTS 


A BYTE PSEUDO-ADRESSS 


0321 


8243 


A 




HEAD 


ORD , 2 , LONG, 'C 


/256 


0322 


Al 20 


A 




.WORD 


' 1 '+EVEN, STORE 


-2 




0323 


031B 


A 












0324 


0325 


A 


CSTORE : 


.WORD 


. + 1 






0325 


6100 


A 




PUSH 


IP 




SAVE IP 


0326 


CBOO 


A 




LD 


X, 0(SP) 




, GET BYTE ADDRESS 


0327 


3800 


A 




PFLG 


LINK 




CONVERT TO 


0328 


2603 


A 




ROR 


X, 1,1 




WORD ADDRESS 


0329 


C10B 


A 




LD 


0,X00FF 






032A 


C701 


A 




LD 


1,KSP) 




BYTE TO BE 


032B 


5500 


A 




RAND 


0,1 




STORED 


032C 


7000 


A 




CAI 


0,0 




SET UP MASK 



752 03 2D 4802 A 

753 032E 7000 A 

754 032F 2910 A 

755 0330 AA00 A 

756 0331 6840 A 

757 0332 D200 A 

758 0333 6500 A 



BOC LINK,. +3 

CAI 0,0 

SHL 1,8,0 

AND 0,(X) 

RADD 1,0 

ST 0,(X) 

PULL IP 



AND CLEAR 
APPROPRIATE 
HALF OF WORD 
TO STORE INTO 
ADD IN BYTE 
STORE ALTERED WORD 
RESTORE IP 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



7 1 Q 


U J J4 


Q fl TP H 

"Ore 


T 
1 




JMP 


POP2 


; REMOVE ARGUMENTS 


~7 c r\ 


U j j j 


U UF F 


A 

A 


X00FF: 


.WORD 


00FF 




7 6 1 
















7 A 9 








**************************************************** 


7 A 1 








• * 




• » » 


* 


764 








j**** *********************************************** 


7 f. K 
















/DO 


n ^ ^ a 

U J JO 


C 1 Tl A 


A 
A 




HEAD 


IMM, 1 , SHORT, ' : ' /25 6 


7 67 


033 7 


0321 


A 




.WORD 


CSTORE-3 




7 68 


0338 


0342 


A 


COLON: 


.WORD 


DOCOL, QEXE C, S CS P ,CURR, AT, CONT 




0 339 


04EF 


A 












0 33A 


04CC 


A 












\J -J J D 


n l n i 


A 
A 












U J Jl 


U J UJ) 


A 

A 












0 3 3D 


flTT? A 
U Jr n 


A 
t\ 










7 (% Q 


U J 


no in 
U O 1 D 


A 

A 




.WORD 


STORE, CREATE, RBRAC, PS CODE 




n o o p 
U J or 


A 7 7 A 

U / / 9 


A 

A 












no/, a 
U J H U 


U j j J 


A 

A 












0 341 


0 55E 


A 










770 
















771 


0342 


AC21 


A 


DOCOL: 


DSZ 


RP j 


; EXTEND RETURN STK 


772 


0343 


5C40 


A 




RCPY 


IP,0 


; SAVE IP ON 


773 


0344 


B021 


A 




ST 


0,@RP , 


; RETURN STACK 


774 


0345 


5101 


A 




LI 


IP.l 


; POINT IP TO WORD 


775 


0346 


6980 


A 




RADD 


W,IP ; 


, AFTER DOCOL 


776 


0347 


98F8 


I 




JMP 


NEXT 




777 








• 

y 








778 


0348 


C1BB 


A 




HEAD 


IMM, 1 , SHORT, ' ; ' /256 


779 


0349 


0336 


A 




.WORD 


COLON-2 




780 


034A 


0342 


A 


SEMI : 


.WORD 


DOCOL, QCSP ,C0MPIL, SEMIS 




034B 


0505 


A 












034C 


0521 


A 












034D 


026A 


A 










781 


034E 


053E 


A 




.WORD 


SMUDGE, LBRAC, SEMIS 




034F 


052C 


A 












0350 


026A 


A 











782 
783 
784 
785 
786 



**************** * * ********************************* 

* CONSTANT, VARIABLE, USER * 

*************************************************** 



7 ft 7 


\j j j i 


ft ft A ^ 

O O H J 


A 




up An 


*J t\ JL' , O , 




7 ft a 

/ o o 


n ^ s 9 

U J J £. 


AT? AT? 
h- r *+ E/ 


A 

i\ 






U IN , 


«!T' .'AM' 'T'+FVPM CPMT - 9 






5 3 5 4 


A 












0354 


4 1 4E 


A 












0355 


D420 


A 












0356 


0348 


A 










789 


0357 


0342 


A 


CON: 


• WORD 


DOCOL, 


CREATE, SMUDGE, COMMA, PS CODE 




0358 


0779 


A 












0359 


053E 


A 












035A 


0448 


A 












035B 


055E 


A 










790 








> 








791 


035C 


C201 


A 


DOCON : 


LD 


0,1(W) 


; GET PARAMETER 


792 


0 3 5D 


98F9 


I 




JMP 


PUSH 


; PUSH ON STACK 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



793 








5 








794 


035E 


8856 


A 




HEAD 


ORD , 8 , LONG , ' V/256 


7 95 


035F 


4152 


A 




• WORD 


'AR' , ' IA' , 'BL' , 'E'+EVEN, CON- 6 




0360 


4941 


A 












0361 


424C 


A 












0362 


C520 


A 












0363 


0351 


A 










796 


0364 


0342 


A 


VAR: 


.WORD 


DOCOL, CON, PSCODE 






0365 


0357 


A 












0366 


055E 


A 










797 








» 








798 


0367 


5001 


A 


DOVAR: 


LI 


0,1 


; FORM ADDRESS 


799 


0368 


6880 


A 




RADD 


W,0 


; OF PARAMETER 


800 


0369 


98F9 


I 




JMP 


PUSH 


; PUSH ON STACK 


801 








• 








802 


036A 


8455 


A 




HEAD 


ORD, 4, LONG, 'U'/256 


803 


036B 


5345 


A 




.WORD 


'SE' , 'R'+EVEN, VAR-6 




036C 


D220 


A 












036D 


035E 


A 










804 


036E 


0342 


A 


USER: 


.WORD 


DOCOL, CON, PSCODE 






036F 


0357 


A 












0370 


055E 


A 










805 








• 








806 


0371 


C201 


A 


DOUSER: 


LD 


0,1(W) 5 


GET OFFSET 


807 


0372 


E022 


A 




ADD 


0,UP ; 


ADD USER POINTER 


808 


0373 


98F9 


I 




JMP 


PUSH ; 


PUSH ON STACK 



809 
8 10 
811 
8 12 



************************************************* 

* DEFINED CONSTANTS * 

*************************************************** 



813 








; 






8 14 


0374 


81B0 


A 




HEAD 


ORD, 1 , SHORT, '0' /256 


8 15 


0375 


036A 


A 




• WORD 


USER-4 


8 16 


0376 


035C 


A 


ZERO : 


.WORD 


DOCON, 0 




0377 


0000 


A 








817 








» 






8 18 


0378 


81B1 


A 




HEAD 


ORD, 1 , SHORT, ' 1' /256 


8 19 


0379 


0374 


A 




.WORD 


ZER0-2 


820 


037A 


035C 


A 


ONE: 


.WORD 


DOCON, 1 




037B 


0001 


A 








821 








• 
9 






822 


037C 


81B2 


A 




HEAD 


ORD, 1 , SHORT, '2' /256 


823 


0 3 7D 


0378 


A 




.WORD 


ONE-2 


824 


037E 


035C 


A 


TWO : 


.WORD 


DOCON, 2 




037F 


0002 


A 








825 








J 






826 


0380 


81B3 


A 




HEAD 


ORD, 1 , SHORT, ' 3' /256 


827 


0381 


037C 


A 




.WORD 


TWO-2 


828 


0382 


035C 


A 


THREE : 


.WORD 


DOCON, 3 




0383 


0003 


A 








829 








> 






830 


0384 


8242 


A 




HEAD 


ORD, 2 , LONG, ' B ' / 2 5 6 


831 


0385 


CC20 


A 




.WORD 


'L'+EVEN,THREE-2 




0386 


0380 


A 








832 


0387 


035C 


A 


BL : 


.WORD 


DOCON,' '/256 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0388 


0020 


A 














833 








> 












834 


0389 


8546 


A 




HEAD 


ORD , 5 


, L ONG , ' F ' 


/256 




835 


038A 


4952 


A 




.WORD 


'IR' , 


'ST'+ODD, 


BL-3 






038B 


53D4 


A 
















038C 


0384 


A 














836 


038D 


035C 


A 


FIRST : 


.WORD 


DOCON 


, BUFFS 








038E 


1DF0 


A 














837 








• 












838 


038F 


854C 


A 




HEAD 


ORD , 5 


,LONG , 'L' 


/256 




839 


0390 


4 9 4D 


A 




.WORD 


'IM' , 


' IT'+ODD, 


FIRST- 


4 




0391 


49D4 


A 
















0392 


0389 


A 














840 


0393 


035C 


A 


LIMIT : 


.WORD 


DOCON 


, TOPMEM 








0394 


2000 


A 














841 








3 












842 


0395 


8542 


A 




HEAD 


ORD, 5 


, LONG , 'B' 


/256 




843 


0396 


2F42 


A 




.WORD 


'/B' , 


'UF'+ODD, 


LIMIT- 


4 




0397 


55C6 


A 
















0398 


038F 


A 














844 


0399 


035C 


A 


BBUF : 


.WORD 


DOCON 


,BLKSIZ 








039A 


0080 


A 















845 



846 
847 



848 

849 
850 
851 

852 
853 

854 



855 



039B 8542 
039C 2F53 
039D 43D2 
039E 0395 
039F 035C 
03A0 0008 



03A1 
03A2 
03A3 
0 3A4 
03A5 
03A6 
03A7 
03A8 

03A9 
0 3AA 



872B 
4F52 
4947 
49CE 
039B 
0342 
0103 
0010 
029F 



A 
A 
A 
A 
A 
A 
A 
A 
A 



026A A 



856 
85,7 
858 
859 
860 
861 

862 
863 

864 
865 



03AB 8253 
03AC B020 
03AD 03A1 
03AE 0371 
03AF 0003 



HEAD ORD , 5 , LONG , ' B ' / 25 6 

.WORD '/S' , 'CR'+ODD, BBUF-4 



BSCR: • WORD DOCON , 1 0 2 4 /BLKS IZ 



THE FOLLOWING WORD EXPECTS A WORD-OFFSET 
AND RETURNS A WORD- ADDRES S . 

HEAD ORD, 7 ,L0NG, '+' /256 

.WORD 'OR' , 'IG' , ' IN'+ODD,BSCR-4 



PORIG: .WORD DOCOL , L IT , ORIG , PLUS , S EMI S 



*************************************************** 

* USER VARIABLES * 

*************************************************** 



03B0 8252 A 



HEAD ORD, 2, LONG, 'S'/256 

.WORD '0'+EVEN,PORIG-5 

SZERO: .WORD DOUSER,03 



HEAD ORD, 2, LONG, 'R' /256 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 



DICTIONARY 












866 


03B1 


B020 


A 




.WORD 


'O'+EVEN, SZEROi-3 




03B2 


03AB 


A 








867 


03B3 


0371 


A 


RZERO : 


.WORD 


DOUSER,04 




0 3B4 


0004 


A 








868 








• 






869 


03B5 


8354 


A 




HEAD 


ORD, 3, LONG, 'T'/256 


870 


03B6 


49C2 


A 




. WORD 


'IB'+ODD,RZERO-3 




03B7 


03B0 


A 








871 


03B8 


0371 


A 


TIB : 


.WORD 


DOUSER, 05 




03B9 


0005 


A 








872 








» 






873 


03BA 


8557 


A 




HEAD 


ORD , 5 , LONG, 'W' /256 


874 














875 


03BB 


4944 


A 




.WORD 


'ID' , ' TH '+ODD , TIB- 




03BC 


54C8 


A 










03BD 


03B5 


A 








876 


03BE 


0371 


A 


WIDTH: 


.WORD 


DOUSER, 06 




03BF 


0006 


A 









8 77 



878 


03C0 


8757 


A 




HEAD 


ORD, 7 , LONG, 'W' /256 


879 


03C1 


4152 


A 




.WORD 


'AR' , 'NI' ,/NG'+ODD,WIDTH-4 




03C2 


4E49 


A 










03C3 


4EC7 


A 










03C4 


03BA 


A 








880 


03C5 


0371 


A 


WARN : 


.WORD 


DOUSER, 07 




03C6 


0007 


A 








881 








• 
> 






882 


03C7 


8546 


A 




HEAD 


ORD, 5 , LONG, ' F ' / 2 5 6 


883 


03C8 


454E 


A 




.WORD 


'EN' , 'CE'+ODD, WARN- 5 




03C9 


43C5 


A 










03CA 


03C0 


A 








884 


03CB 


0371 


A 


FENCE : 


.WORD 


DOUSER, 08 




03CC 


0008 


A 








885 








• 






886 


03CD 


8244 


A 




HEAD 


ORD , 2 , LONG, ' D ' / 25 6 


887 


03CE 


D020 


A 




.WORD 


'P'+EVEN, FENCE-4 




03CF 


0 3C7 


A 








888 


03D0 


0371 


A 


DP: 


.WORD 


DOUSER, 09 




0 3D1 


0009 


A 








889 








• 
9 






890 


03D2 


8856 


A 




HEAD 


ORD, 8, LONG, 'V/256 


891 


03D3 


4F43 


A 




.WORD 


'OC' , '-L' , ' IN' , 'K'+EVEN,DP 




03D4 


2D4C 


A 










03D5 


494E 


A 










03D6 


CB20 


A 










0 3D7 


03CD 


A 








892 


0 3D8 


0371 


A 


VOCL : 


.WORD 


DOUSER, OA 




0 3D9 


000A 


A 








893 








» 






894 


03DA 


8342 


A 




HEAD 


ORD , 3 , LONG, ' B ' / 25 6 


895 


03DB 


4CCB 


A 




.WORD 


'LK'+ODD, VOCL-6 




0 3DC 


03D2 


A 








896 


03DD 


0371 


A 


BLK: 


.WORD 


DOUSER, OB 




0 3DE 


OOOB 


A 









897 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



898 


03DF 


8249 


A 




HEAD 


ORD, 2 , LONG, ' I ' / 2 5 6 


899 


03E0 


CE20 


A 




.WORD 


'N'+EVEN,BLK-3 




03E1 


03DA 


A 








900 


03E2 


0371 


A 


IN: 


.WORD 


DOUSER, OC 




03E3 


OOOC 


A 








901 








5 






902 


03E4 


834F 


A 




HEAD 


ORD, 3 , LONG, '0' /256 


903 


03E5 


55D4 


A 




.WORD 


'UT'+ODD, IN-3 




03E6 


03DF 


A 








904 


0 3E7 


0371 


A 


OUT: 


.WORD 


DOUSER, OD 




03E8 


000D 


A 








905 








5 






906 


03E9 


8353 


A 




HEAD 


ORD, 3 , LONG, ' S' /256 


907 


03EA 


43D2 


A 




.WORD 


'CR'+ODD,OUT-3 




03EB 


03E4 


A 








908 


03EC 


0371 


A 


SCR: 


.WORD 


DOUSER, OE 




0 3ED 


000E 


A 









909 








• 
» 






9 10 


03EE 


864F 


A 




HEAD 


ORD , 6 , LONG , '0' /256 


911 


03EF 


4646 


A 




.WORD 


'FF' , ' SE' , 'T'+EVEN, SCR-3 




03F0 


5345 


A 










03F1 


D420 


A 










03F2 


03E9 


A 








9 12 


03F3 


0371 


A 


OFFSET : 


.WORD 


DOUSER, OF 




03F4 


000F 


A 








9 13 








» 






914 


03F5 


8743 


A 




HEAD 


ORD, 7, LONG, 'C/256 


9 15 


03F6 


4F4E 


A 




.WORD 


'ON' , 'TE' , ' XT '+ODD, OFFSET 




03F7 


5445 


A 










03F8 


58D4 


A 










03F9 


03EE 


A 








9 16 


03FA 


0371 


A 


CONT:: 


.WORD 


DOUSER, 010 




03FB 


0010 


A 








917 








» 






9 18 


03FC 


8743 


A 




HEAD 


ORD, 7 ,L0NG, 'C/256 


919 


03FD 


5552 


A 




.WORD 


'UR' , 'RE' , 'NT '+0DD , CONT- 5 




03FE 


5245 


A 










03FF 


4ED4 


A 










0400 


03F5 


A 








920 


0401 


0371 


A 


CURR: 


.WORD 


DOUSER, 01 1 




0402 


0011 


A 








921 








• 
» 






922 


0403 


8553 


A 




HEAD 


ORD , 5 , LONG, ' S ' /256 


923 


0404 


5441 


A 




.WORD 


'TA' , 'TE'+ODD,CURR-5 




0405 


54C5 


A 










0406 


03FC 


A 








924 


0407 


0371 


A 


STATE : 


.WORD 


DOUSER, 012 




0408 


0012 


A 








925 








j 






926 


0409 


8442 


A 




HEAD 


ORD, 4, LONG, 'B'/256 


927 


040A 


4153 


A 




. WO RD 


'AS' , 'E'+EVEN, STATE-4 




040B 


C520 


A 










040C 


0403 


A 








928 


040D 


0371 


A 


BASE: 


.WORD 


DOUSER, 013 




040E 


0013 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 

929 ; 



930 


040F 


8344 


A 




HEAD 


ORD, 3, LONG, 'D' 


/256 


931 


0410 


50CC 


A 




.WORD 


'PL'+ODD,BASE- 


4 




0411 


0409 


A 










932 


0412 


0371 


A 


DPL: 


.WORD 


DOUSER, 014 






0413 


0014 


A 










933 








5 








934 


0414 


8346 


A 




HEAD 


ORD, 3, LONG, 'F' 


/256 


935 


0415 


4CC4 


A 




.WORD 


'LD'+ODD,DPL-3 






0416 


040F 


A 










936 


0417 


0371 


A 


FLD: 


.WORD 


DOUSER, 015 






0418 


0015 


A 











937 



938 
939 

940 

941 
942 
943 

944 

945 
946 
947 

948 

949 
950 
951 
952 
953 
954 
955 

956 
957 
958 
959 
960 
961 
962 

963 



964 
965 
966 



0419 8343 A 
041A 53D0 A 
041B 0414 A 
041C 0371 A 
041D 0016 A 

041E 8252 A 
041F A320 A 

0420 0419 A 

0421 0371 A 

0422 0017 A 

0423 8348 A 

0424 4CC4 A 

0425 041E A 

0426 0371 A 

0427 0018 A 



0428 8231 

0429 AB20 
042A 0423 
042B 042C 
042C 8F00 
042D 98F8 
042E 98F8 



A 
A 
A 
A 
A 
I 
I 



042F 8232 A 

0430 AB20 A 

0431 0428 A 

0432 0342 A 

0433 037E A 

0434 029F A 

0435 026A A 

0436 8448 A 

0437 4552 A 

0438 C520 A 

0439 042F A 



HEAD ORD, 3, LONG, 'C/256 

.WORD 'SP'+ODD, FLD-3 

CSP: . WORD DOUSER.016 ' 



HEAD ORD, 2, LONG, 'R'/256 

.WORD ' , '+EVEN , CSP-3 

RNUM : .WORD DOUSER,017 



HEAD ORD, 3, LONG, ' H ' / 25 6 

.WORD 'LD'+0DD,RNUM-3 

HLD: .WORD DOUSER,018 



********************************* ** ******* ** ******* 

* MISCELLANEOUS * 

*************************************************** 



ONEP : 



HEAD 
.WORD 

.WORD 
ISZ 
JMP 
JMP 

HEAD 
.WORD 



TWOP: 



ORD, 2, LONG, ' 1' /256 
'+'+EVEN,HLD-3 



. + 1 

0(SP) 

NEXT 

NEXT 



; ADD ONE 

; TO BOTTOM 

: OF STACK 



ORD, 2, LONG, '2' /256 
'+'+EVEN,0NEP-3 



.WORD DOCOL, TWO, PLUS, SEMIS 



HEAD ORD , 4 ,LONG, 'H' /256 

.WORD ' ER ' , 'E'+EVEN, TWOP- 3 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
D ICTIONARY 



967 043A 0342 A 
043B 03D0 A 
043C 030B A 
043D 026A A 

968 

969 04 3E 8541 A 

970 043F 4C4C A 

0440 4FD4 A 

0441 0436 A 



HERE: .WORD DOCOL , DP , AT , S EMI S 



HEAD ORD, 5, LONG, 'A'/256 

.WORD ' LL ' , ' OT '+0DD , HERE -4 



Q 7 1 

y / 1 




0 3 4/ 


A 


AT T r\ *T* m 

ALLOT : 


MA D T\ 

• WO RD 


D0C0L,DP,PST0RE, SEMI S 




0 443 


03D0 


A 










0 444 


0 2E3 


A 










0 4 4 5 


0 2 6A 


A 








9 72 








i 






O 7 Q 

y / j 








* • » 


U t? D V 


1 1 A T T /"* T 1 • 

I 1 ALLO 1 ; 


t\ 7 / 

y / 4 








; 






9 75 


0446 


8 1 AC 


A 




HEAD 


0RD,1, SHORT, , /256 


O 7 £ 
9/0 


U 4 4 / 


0 4 3E 


A 

A 




• WU RD 


AL LUI-tf 


Q 7 7 

VII 




0 3 4 2 


A 

A 


COMMA : 


• WO RD 


DOCOL,HERE, S TORE, ONE, ALLOT , S EMI S 




0449 


0 4 3A 


A 










0 44A 


0 3 ID 


A 










0 44B 


037A 


A 










044C 


0442 


A 










0 44D 


026A 


A 








9 78 








i 






979 


044E 


8 IAD 


A 




HEAD 


ORD, 1 , SHORT, '-' /256 


9 80 


044F 


0446 


A 




• WORD 


C0MMA-2 


9 81 


0450 


0451 


A 


SUB : 


.WORD 


. + 1 


982 


0451 


C301 


A 




LD 


0,1 (SP) ; GET MINUEND 


n o i 

9 8 3 


0 4 5 2 


3 780 


A 




SFLG 


CRY ; CLEAR BORROW 


9 84 


0453 


9300 


A 




SUBB 


0,0(SP) ; SUBTRACT SUBTRAHEND 


985 


0454 


98F6 


I 




JMP 


BIN 


r> O tL 

9 8 6 














n Q 7 
9 8/ 


0 4 5 5 


O 1 T> T\ 

8 1 BD 


A 

A 




HE At) 


ORD, 1, SHORT, = /Zdo 


9 88 


0456 


044E 


A 




. WORD 


SUB-2 


Q ft Q 


n a ^ 7 


U J H Z. 


A 

A 


PrtTTAT •> 
Ii^UAL <i 


• WU KU 


Tin /TIT CTfR 7T?AIT CTTMTC 




0 4 5 8 


0 4 5 0 


A 










0459 


028F 


A 










0 4 5A 


0 2 6A 


A 








9 9 0 








J 






9 91 


045B 


81BC 


A 




HEAD 


ORD , 1 , SHORT , ' < ' / 2;5 6 . 


992 


045C 


0455 


A 




.WORD 


EQUAL-2 


9 93 


045D 


0 34 2 


A 


LESS: 


. WORD 


D0C0L,SUB,ZLESS,SEMIS 




0 45E 


0450 


A 










0 45F 


0 2 9 7 


A 










0460 


026A 


A 








9 94 








5 






one 

9 y 5 


(\ 1. C 1 

0 4 6 1 


8 1 B E 


A 

A 




TTT1 AH 

HEAD 


ORD, 1, SHORT, > /ZDO 


9 96 


0462 


045B 


A 




.WORD 


LESS-2 


9 9 7 


0 46 3 


0342 


A 


GREAT : 


. WORD 


DOCOL , SWAP ,LESS,SEMIS 




0 4 6 4 


0 2D 5 


A 










0465 


045D 


A 










0466 


026A 


A 








998 








• 
> 






999 


0467 


8352 


A 




HEAD 


ORD , 3 , LONG , ' R ' / 2 5 6 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 

1000 0468 4FD4 A .WORD 
0469 0461 A 

1001 046A 046B A ROT: .WORD 

1002 046B C302 A LD 

1003 046C CB01 A LD 



'OT'+ODD , GREAT -2 
. + 1 

0,2(SP) ; GET THIRD 

X,1(SP) ; MOVE SECOND 



i ooa 

1 KJ VJ H 


o A fin 


0 9 
u D U Z 


A 
A 






q rp 

O L 


Y 9 /CP\ • TO THTPn 


i a a c. 


a /. £ t? 
U 4 OE 


T> A A 

CBUO 


A 

A 






T A 
LD 


X,U(br) ; MOVE BOTTOM 


1 \J u u 


0 A A 1? 

U4D1 


nn 0 1 

llD U 1 


A 

A 






O 1 


A, 1 lor J , 1U o£il/UNU 


i a a 7 
1 U U / 


U 4 / U 


A O r? 7 

9 oF 7 


I 






JMP 


PUT ; PUT THIRD ON BOTTOM 


1008 








» 






i n a o 

i uuy 


A/, 7 1 

U 4 / 1 


q c. c. o 

O J J J 


A 

A 






XI TT A A 


ADA R T AXTP ' O ' / OR£ 

UKD , _> , L UJNb , b /ZDO 


1010 


0 4 7 2 


5 041 


A 






• WORD 


PA , CE +0DD,R0T-3 




0 4 7 3 


4 3C 5 


A 












0 A 7 A 


O A A 7 
U D / 


A 

A 










10 11 
lull 


0 A 7 S 


0 A 9 


A 

A 


SPACE : 


p a 






0 A 7 


0 3 ft 7 
U J o / 


A 

JA 












0 4 7 7 


0 1ED 


A 












0 A 7 ft 


0 9 A 


A 


















• 






1 0 1 ^ 

1U1 J 


0 A 7 Q 


ft A 9n 

O H ZJJ 


A 
A 








OPT) A T nNI* 1 ' — ' / 9 fi 


1 0 1 A 
1 UH 


0 A 7 A 


't'f j j 


A 
A 








1/ U , r Tli y JCi IN t o r A U t\ — h 




O A 7 T* 
U H / D 


r» o 9 o 
uuzu 


A 

A 












0 A 7 f 


0 A 7 1 


A 
A 










1 O 1 C 


U 4 /D 


n A 7U 

U 4 / Hi 


A 

A 


DDUP: 


T.7 ADA 
• WU KD 


i i 
. T 1 


I U 1 O 


U 4 / £j 


r> o. a a 
l JUU 


A 

A 






T A 


A A / CD \ • PITT' DATTAM AT? O T A P T/ 


10 17 
1 Ul / 


(1/71? 

u h / r 


A 1 0 1 
H 1 U 1 


A 

A 






B0C 


Z , .+2 


1 Ulo 


n/, on 
U 4 o U 


y o r y 


1 






JMP 


PUSH 1 ; DUP IF NOT ZERO 


1 A 1 A 

1019 


0 4 81 


9 8F8 


I 






JMP 


NEXT 


10 9 0 

1 u i. U 
















1 ni i 
1 UZ 1 










*************************************************** 


i a i i 
10 2 2 










* 


VARIABLE LENGTH NAME SUPPORT * 


i a o q 










*************************************************** 


1 UZf 
















1025 


0 48 2 


8 854 


A 






HEAD 


0RD, 8, LONG, 'T'/256 


1 UiD 


0 A ft ^ 


R 9 A 1 
J til 


A 
A 






.WORD 


'RA' , ' VE' , 'RS ' , 'E'+EVEN,DDUP-4 




U 4 o 4 


c £ y. c. 
_> O 4 _> 


A 

A 












A / o c 

0 485 


coco 

5 2 5 3 


A 












n a q a 
U ^ o o 


/*• o n. 
L. D Z U 


A 

A 












O A ft 7 


O A 7 Q 

u h i y 


A 
A 










i n o 7 
1 UZ / 


a y. q q 
U 4 o o 


U J 4 z 


A 

A 


TRAV: 


.WORD 


D0C0L, SWAP 




0489 

V "T U 7 


o ?n 5 


A 
/ \ 










1 uzo 


0 A ft A 


0 9 P Q 


A 

A 


TRAV1 : 


.WORD 


OVER, PLUS , LIT, 007F 




0 A ft R 


O 9 Q 1? 


A 

A 












o Aftr 

U H O Vj 




A 












0 A ftn 


0 0 7 T? 


A 
A 










l a o a 

l u z y 


U 4 oJCi 


U zC 9 


A 

A 






.WORD 


OVER, CAT, LESS, ZBRAN 




0 A ft V 
u o r 


0^11 
U J 1 1 


A 

A 












O A Q O 


U H DL) 


A 

A 












a y. a i 
0 4 91 


All/ 

0124 


A 

A 










1 U JU 


O A Q 9 
U *f b» Z 


T? TT T7 ft 
r r r o 


A 

A 






.WORD 


TRAV 1 - • , SWAP , DROP , SEMIS 




0 4 9 3 


0 2n 5 


A 
t\ 












0494 


02D0 


A 












0495 


026A 


A 










1 031 








> 






1032 


0496 


864C 


A 






HEAD 


0RD , 6 , L 0NG , ' L ' / 2 5 6 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1033 


0497 


4154 


A 




. WORD 


'AT' , 'ES' , 'T'+EVEN,TRAV-6 




0498 


4553 


A 










0499 


D420 


A 










049A 


0482 


A 








1 034 


049B 


0342 


A 


LATEST 


: .WORD 


DOCOL,CURR, AT, AT, SEMI'S 




049C 


0401 


A 










049D 


030B 


A 










049E 


030B 


A 






■ 




049F 


026A 


A 








1035 








» 






1036 








• • 
9 • 


LFA 2 


~ J 


1037 








; 






1038 


04A0 


834C 


A 




HEAD 


ORD , 3 , LONG , 'L'/256 


1039 


04A1 


46C1 


A 




.WORD 


' FA'+ODD , LATE ST- 5 




04A2 


0496 


A 








1040 


04A3 


0342 


A 


LFA: 


.WORD 


DOCOL,TWO , SUB , SEMIS 




04A4 


037E 


A 










04A5 


0450 


A 










04A6 


026A 


A 








1041 








; 






1042 








• • 


CFA 1 




1043 








; 






1044 


04A7 


8343 


A 




HEAD 


ORD, 3, LONG, 'C/256 


1045 


04A8 


46C1 


A 




.WORD 


'FA'+ODD, LFA-3 




04A9 


04A0 


A 








1046 


04AA 


0342 


A 


CFA: 


.WORD 


DOCOL, ONE, SUB , SEMIS 




0 4AB 


037A 


A 










04AC 


0450 


A 










0 4AD 


026A 


A 








1047 








; 






1048 








9 * 


NFA 2 


BYTE -1 TRAVERSE 


1 049 








> 




-1 TRAVERSE CELL 


1050 








; 






1051 


04AE 


834E 


A 




HEAD 


ORD, 3, LONG, 'N'/256 


1052 


04AF 


46C1 


A 




. WO RD 


'FA'+ODD, CFA-3 




04B0 


04A7 


A 








1 053 


04B1 


0342 


A 


NFA: 


.WORD 


DOCOL, TWO, SUB , BYTE, LIT,- 1 




04B2 


037E 


A 










04B3 


0450 


A 










04B4 


02FD 


A 










04B5 


0103 


A 










0 4B6 


FFFF 


A 








1054 


04B7 


0488 


A 




.WORD 


TRAV,LIT,-1 ,TRAV, CELL, SEMIS 




04B8 


0103 


A 










04B9 


FFFF 


A 










04BA 


0488 


A 










04BB 


0305 


A 










04BC 


026A 


A 








1055 














1056 








9 • 


PFA BYTE 1 TRAVERSE CELL 3 + ; 


1057 














1058 


04BD 


8350 


A 




HEAD 


ORD , 3 , LONG, 'P' /256 


1059 


04BE 


46C1 


A 




.WORD 


'FA'+ODD, NFA-3 




04BF 


04AE 


A 








1060 


04C0 


0342 


A 


PFA: 


.WORD 


DOCOL, BYTE, ONE, TRAV 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



04C1 02FD A 

04C2 037A A 

04C3 0488 A 

1061 04C4 0305 A 

04C5 0382 A 

04C6 029F A 

04C7 026A A 

1062 
1063 
1064 
1065 
1066 

1067 04C8 8421 A 

1068 04C9 4353 A 
04CA D020 A 
04CB 04BD A 

1069 04CC 0342 A 
04CD 0255 A 
04CE 041C A 
04CF 031D A 
04D0 026A A 

1070 

1071 0 4D1 8 6 3F A 

1072 04D2 4552 A 
04D3 524F A 
04D4 D220 A 
04D5 04C8 A 

1073 04D6 0342 A 
04D7 02D5 A 
0 4D8 0124 A 

1074 0 4D9 0004 A 
04DA 0744 A 
04DB 011B A 

1075 04DC 0002 A 

1076 04DD 02D0 A 

1077 04DE 026A A 
1078 

1079 04DF 853F A 

1080 04E0 434F A 
04E1 4DD0 A 
04E2 04D1 A 

1081 04E3 0342 A 
04E4 0407 A 
04E5 030B A 
04E6 028F A 

1082 04E7 0103 A 
04E8 0011 A 
04E9 04D6 A 
04EA 026A A 

1 083 

1084 04EB 853F A 

1085 04EC 4558 A 
04ED 45C3 A 
04EE 04DF A 

1086 04EF 0342 A 



• WORD CELL, THREE, PLUS , SEMIS 



***************************!»{*********************** 

* ERROR PROCEDURES, PER SHIRA * 

*************************************************** 

HEAD ORD,4,LONG, ' I ' / 25 6 

.WORD 'CS ' , ' P'+EVEN, PFA-3 



SCSP: .WORD DOCOL, SPAT, CSP, STORE, SEMIS 



HEAD ORD , 6 , LONG , ' ? ' /25 6 

.WORD ' ER ' , ' RO ' , 'R'+EVEN,SCSP-4 



QERROR : .WORD DOCOL , SWAP , ZBRAN 

.WORD QERR1-. , ERROR, BRAN 



.WORD QERR2- 
QERR1 : .WORD DROP 
QERR2: .WORD SEMIS 



HEAD ORD, 5, LONG, '?'/256 

.WORD ' CO ' , 'MP '+ODD , QERROR- 5 



QCOMP: .WORD DOCOL , S TATE , AT , Z EQU 



.WORD LIT, 001 1 , QERROR, SEMIS 



HEAD ORD, 5, LONG, '?'/256 

.WORD 'EX' , 'EC '+ODD , QCOMP- 4 



QEXEC: .WORD DOCOL , STATE , AT 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





04F0 


0407 


A 










04F1 


030B 


A 








1087 


04F2 


0103 


A 




• WORD 


LIT, 0012 , QERROR, SEMIS 




04F3 


0012 


A 










04F4 


04D6 


A 










04F5 


026A 


A 








1088 








• 






1089 


04F6 


863F 


A 




HEAD 


ORD , 6 , LONG, ' ? ' /256 


1090 


04F7 


5041 


A 




.WORD 


'PA' , ' IR' , ' S '+EVEN,QEXEC-4 




04F8 


4952 


A 










04F9 


D320 


A 










04FA 


04EB 


A 








1091 


04FB 


0342 


A 


QPAIRS : 


.WORD 


DOCOL,SUB ,LIT, 0013, QERROR, SEMIS 




04FC 


0450 


A 










04FD 


0103 


A 










04FE 


0013 


A 










04FF 


0 4D6 


A 










0500 


026A 


A 








1092 








t 






1093 


0501 


843F 


A 




HEAD 


ORD, 4, LONG, '?'/256 


1094 


0502 


4353 


A 




.WORD 


'CS' , 'P'+EVEN, QPAIRS- 5 




0503 


D020 


A 










0504 


04F6 


A 








1095 


0505 


0342 


A 


QCSP : 


.WORD 


DOCOL , SPAT, CSP , AT, SUB 




0506 


0255 


A 










0507 


041C 


A 










0508 


030B 


A 










0509 


0450 


A 








1096 


0 5 OA 


0103 


A 




.WORD 


LIT, 0014 , QERROR, SEMIS 




050B 


0014 


A 










0 5 0C 


04D6 


A 










0 5 0D 


026A 


A 








1097 








• 






1098 


050E 


883F 


A 




HEAD 


ORD , 8 ,LONG , ' ? ' /256 


1099 


050F 


4C4F 


A 




.WORD 


'LO' , 'AD ' , ' IN' , 'G'+EVEN,QCSP-4 




0510 


4144 


A 










0511 


494E 


A 










0512 


C720 


A 










0513 


0501 


A 








1 100 


0514 


0342 


A 


QLOAD : 


.WORD 


DOCOL, BLK, AT, ZEQU 




0515 


03DD 


A 








0516 


030B 


A 










0517 


028F 


A 








1101 


0518 


0103 


A 




. WO RD 


LIT, 0016 , QERROR, SEMIS 




0519 


0016 


A 










051A 


04D6 


A 










051B 


026A 


A 









1 102 
1103 
1 104 
1 105 
1106 
1107 
1 108 
1 109 



051C 8743 A 



*************************************************** 

* COMPILE, SMUDGE, HEX, DECIMAL * 

*************************************************** 

: COMPILE ?COMP R> DUP 1+ >R @ , ; 

HEAD ORD, 7 ,LONG, 'C/256 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
D ICTIONARY 



1110 


05 ID 


4F4D 


A 




• WORD 


'OM' , 'PI' , ' LE '+0DD , QLOAD-6 




05 IE 


5 049 


A 






> 




n s i f 

\j ~i x r 


a r r s 


A 










0 5 20 


050E 


A 








1111 

X X X X 


0 5 21 


0 34 2 

U J 4 


A 


COMP IL 

\j KJ LI X X Xj 


: -WORD 


DOCOL OCOMP FROMR DUP 




05 22 


04E3 


A 










0523 


0283 


A 










0524 


0 2DD 


A 








1112 


05 25 


042B 


A 




. WORD 


ON EP , TOR, AT , COMMA, SEMIS 




0526 


027B 


A 










0527 


030B 


A 










0528 


0448 


A 










0529 


026A 


A 








1113 














1114 


052A 


C 1DB 


A 




HEAD 


IMM, 1 , SHORT, ' [ ' /256 


1115 


052B 


051C 


A 




.WORD 


COMPIL-5 


1116 


052C 


0342 


A 


LBRAC: 


.WORD 


DOCOL, ZERO, STATE, STORE, SEMIS 




0 5 2D 


0376 


A 










052E 


0407 


A 










052F 


03 ID 


A 










0530 


026A 


A 








1117 








9 






1118 

X X X (J 


0 5 31 


8 1DD 


A 




HEAD 


ORD 1 SHORT 'l'/256 


1 1 1 Q 
ill? 




0 S 9 A 


A 

t\ 




. unpn 


T RR AG-2 

Xj XJ I Y £x. \j C 


1120 

X X L. \J 


0 5 3 3 


0 34 2 


A 


R BR AC • 

L\ xj JLV n v_> • 


• WO RD 


DOCOL LIT.00C0 

u \j \j v jlj y ju lit \j \J \j \j 




0 5 14 
\j ~j j h 


0 101 

U 1 u J 


A 
t\ 










U J JJ 


UULU 


A 

A 








1 1 ? 1 


U J JO 


n a n 7 

U4U / 


A 






O 1 A 1 £j , D 1 KJ t\ Ej , 13 firli o 




0 5 3 7 
\j *j j i 


0 3 111 

V J 11/ 


A 
tx 










U J jo 


U Z OA 


A 

A 








11?? 

X X <C 














1 1 ? 1 

X X Z. J 








• • 


SMUDGE 

J11U U VJ l_i 


LATEST BYTE 20 TOGGLE : 

XJ X*. i ij U 1 X/XXXj 4mt \j i v u u JJ U 9 
















1 1 ? 


0 5 3 Q 

\j j .j y 


86 51 

U U J J 


A 

XT 




HF AD 

1 1 Xj JTVjL/ 


ORD 6 LONG 'S'/256 


1126 

X X \J 


05 3A 


4D 5 5 


A 




. WO RD 


'MU' , 'DG' , ' E'+EVEN , RBRAC-2 




053B 


4447 


A 










0 53C 


C520 


A 










0 5 3D 


05 31 


A 








1127 


053E 


0342 


A 


SMUDGE 


: .WORD 


DOCOL, LATEST, BYTE 




053F 


049B 


A 










0 S 4 0 


0 9 FT) 


A 








112 8 


05 41 


0103 


A 




. WO RD 


LIT, 0020, TOGGLE , SEMI S 




0542 


00 20 


A 










U J *T J 


KJ C Ej U 


A 










0 S L L 

\J -J H H 


n 9 fs a 


A 








1 1 9 Q 

X X L. J 








5 






lion 


nc/, c 


Q 1 /. Q 


A 

A 




np An 
n Ji AD 




1131 


0546 


45D8 


A 




.WORD 


' EX'+ODD , SMUDGE-5 




0547 


0539 


A 








1 132 


0548 


0342 


A 


HEX: 


.WORD 


DOCOL, LIT, 00 10, BASE, STORE, SEMIS 




0549 


0103 


A 










054A 


0010 


A 










054B 


040D 


A 










054C 


031D 


A 










0 5 4D 


026A 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1133 
1 134 
1135 



1 136 



054E 
054F 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 



8744 
4543 
494D 
41CC 
0545 
0342 
0103 
000A 
040D 
031D 
026A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



1137 
1 138 
1139 
1140 
1141 
1142 
1143 



1 144 



1 145 



1 146 
1147 
1148 
1149 



1150 



1151 



1152 
1153 
1 154 
1 155 
1 156 
1 157 
1158 



1 159 



0559 
055A 
055B 
055C 
0 5 5D 
055E 
055F 
0560 
0561 
0562 
0563 
0564 



0565 
0566 
0567 
0568 
0569 
056A 
056B 
056C 
056D 
056E 
056F 



8728 
3B43 
4F44 
45A9 
054E 
0342 
0283 
049B 
04C0 
0 4AA 
031D 
026A 



C53B A 
434F A 
44C5 A 
0559 A 
0342 A 
0505 A 
0521 A 
055E A 
052C A 
053E A 
026A A 



0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 



873C 
4255 
494C 
44D3 
0565 
0342 
0376 
0357 



A 
A 
A 
A 
A 
A 
A 
A 



DEC: 



HEAD ORD, 7, LONG, ' D ' / 25 6 

.WORD 'EC , ' IM' , 'AL'+ODD ,HEX~3 



.WORD DOCOL, LIT, OA, BASE, STORE , SEMIS 



*************************************************** 

* ;CODE * 

*************************************************** 

HEAD ORD, 7, LONG, ' (' / 256 

.WORD ' ; C ' , ' OD ' , ' E ) '+ODD , DEC-5 



PSCODE: .WORD DOCOL , FROMR , LATEST 



•WORD PFA,CFA, STORE, SEMIS 



HEAD IMM ,5, LONG, ' ; ' / 25 6 

1 .WORD 'CO' , 'DE'+ODD,PSCODE-5 



SEMIC: .WORD DOCOL, QCSP,COMPIL, PSCODE 



.WORD LBRAC, SMUDGE, SEMIS 



*************************************************** 

* <BUILDS, DOES> * 

*************************************************** 

HEAD ORD, 7, LONG, '<'/256 

.WORD 'BU' , ' IL' , 'DS'+ODD,SEMIC-4 



BUILDS: .WORD DOCOL , Z ERO , CON , S EMI S 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



0578 026A A 



1160 
1161 
1 162 



1163 



0579 
0 5 7A 
057B 
057C 
057D 
057E 
057F 
0580 
0581 
0582 



8544 
4F45 
53BE 
0570 
0342 
0283 
049B 
04C0 
031D 
055E 



HEAD ORD,5,LONG, 'D'/256 

. WORD 'OE' , 'S>'+ODD,BUILDS-5 



DOES: .WORD DOCOL , FROMR , LATEST , PFA , STORE , PS CODE 



1164 
1165 
1166 
1167 
1.168 
1169 
1 170 
1171 
1 1 72 

1173 
1 174 
1 175 
1 176 
1 177 
1178 
1179 
1180 



1181 



0583 AC2 1 A 
0 584 5C40 A 

0585 B021 A 

0586 C601 A 

0587 5002 A 

0588 6880 A 

0589 98F9 I 



DODOES 



DSZ 
RCPY 
ST 
LD: 
LI 

RADD 
JMP 



RP 

IP', 0 
0, @RP* 
l.KW) 
0,2 
W,0 
PUSH 



EXTEND RETURN STACK 

PUSH IP- 
LOAD IP FROM PARAM 
POINT BOTTOM 
OF STACK 
TO PFA+1 



* * * ************************************************ 

* TEXT OUTPUTS * 
*************************************************** 



COUNT 



1 182 
1183 
1184 



1185 



1186 



1 187 



058A 


8543 


A 


HEAD 


058B 


4F55 


A 


• WORD 


058C 


4ED4 


A 




058D 


0579 


A 




058E 


0342 


A 


COUNT: .WORD 


058F 


0 2FD 


A 




0590 


02DD 


A 




0591 


042B 


A 




0592 


02D5 


A 




0593 


0311 


A 




0594 


026A 


A 


• 


0595 


8454 


A 


HEAD 


0596 


5950 


A 


.WORD 


0597 


C520 


A 




0598 


058A 


A 




0599 


0342 


A 


TYPE: .WORD 


059A 


047D 


A 




059B 


0124 


A 




059C 


OOOC 


A 


.WORD 


059D 


02C9 


A 




059E 


029F 


A 




059F 


02D5 


A 




05A0 


0155 


A 




05A1 


0161 


A 


TYPE 1 : .WORD 


05A2 


0311 


A 




05A3 


01ED 


A 




05A4 


012F 


A 





BYTE DUP 1+ SWAP C@ 



ORD , 5 , LONG , 'C'/256 



.WORD TYPE2-. , OVER, PLUS, SWAP, XDO 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1188 

1189 
1 190 
1191 
1192 
1193 
1194 



05A5 FFFC A 
05A6 011B A 
05A7 0002 A 
05A8 02D0 A 
05A9 026A A 



1195 



1196 



1197 



1198 



1199 
1 200 

1201 
1202 

1 203 

1204 
1205 
1206 

1207 
1208 



1 209 



05AA 
05AB 
05AC 
0 5AD 
05AE 
05AF 
05B0 
05B1 
05B2 
05B3 
05B4 
05B5 
05B6 
05B7 
05B8 
05B9 
05BA 
05BB 
05BC 
05BD 
05BE 
05BF 
05C0 
05C1 
05C2 
05C3 
05C4 
05C5 



1210 



05C6 
05C7 
05C8 

05C9 
05CA 

05CB 
05CC 
05CD 
05CE 
05CF 
05D0 
0 501: 
05D2 
05D3 
05D4 



892D 
5452 
4149 
4C49 
4EC7 
0595 
0342 
02DD 
0376 
0155 
02C9 
02C9 
029F 
037A 
0450 A 
0311 A 
0387 
0450 
0124 
0004 
0273 
01 IB 
0003 
037A 
0450 
012F 
FFFO 
026A 



8428 

2E22 

A920 

05AA 

0342 

0289 

058E 

02DD 

0305 

042B 

0283 
029F 
027B A 
0599 A 
026A A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



. WORD TYPE 1 - • , BRAN 

.WORD TYPE3-. 

TYPE 2 : .WORD DROP 

TYPE3: .WORD SEMIS 

HEAD 0RD,9,L0NG, '-'/256 

.WORD 'TR' , 'AI' , 'LI' , ' NG '+0DD , TYPE- 4 



D TRAIL : .WORD DOCOL , DUP , ZERO , XDO 



DTRA1: .WORD OVER , OVER , PLUS , ONE , SUB 



.WORD CAT , BL , SUB , ZBRAN 



.WORD DTRA2-. , LEAVE, BRAN 



.WORD DTRA3-. 

DTRA2: .WORD ONE, SUB 

DTRA3: .WORD XLOOP 

.WORD DTRA1-. , SEMIS 



(.") R COUNT DUP CELL 1+ 
R> + >R TYPE ; 



HEAD ORD,4,LONG, ' C/256 

.WORD '•'",') '+EVEN , D TRAIL - 6 



PDOTQ : .WORD DOCOL , R , COUNT , DUP , CELL , ONEP 



.WORD FROMR, PLUS, TOR, TYPE, SEMEF 



12 

1212 



: 2.2 STATE @ IF COMPILE ( . " ) WORD? 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1213 
L2U 
L2L5 
1216 

1217 05D5 C22E A 

1218 05D6 A220 A 
05D7 05C6 A 

1219 05D8 0342 A 
05D9 0103 A 
05DA 0022 A 
05DB 0407 A 
05DC 030B A 
05DD 0124 A 

1220 05DE 000C A 
05DF 0521 A 
05E0 05CA A 
05E1 06A8 A 

1221 05E2 043A A 
05E3 02FD A 
05E4 0311 A 
05E5 0305 A 
05E6 042B A 
05E7 0442 A 
05E8 011B A 

1222 05E9 0005 A 

1223 05EA 06A8 A 
05EB 043A A 
05EC 058E A 
05ED 0599 A 

1224 05EE 026A A 
1225 

1226 

05ED 0599 A 

1224 05EE 026A A 
1225 
1226 
1225 
1226 

FORTH NUCLEUS FOR 



HERE BYTE C@ CELL 13- ALLOT ELSE 
WORD? HERE COUNT TYPE ENDTF 
IMMEDIATE 

HEAD I MM , 2 , LONG , ' • ' / 25 6 

• WORD '+EVEN, PD0TQ-4 

DOTQ: .WORD DOCOL , L I T , "" / 25 6 , S TATE , AT , Z BRAN 



.WORD D0TQ1-. ,COMPIL,PDOTQ,WORD 



.WORD HERE, BYTE, C AT, C ELL, ONEP, ALLOT, BRAN 



.WORD DOTQ2-. 
DOTQ 1 : .WORD WORD , HERE , COUNT , TYPE 



DOTQ 2 : .WORD SEMIS 
> 

.LIST PART=2 

DOTQ 2 : .WORD SEMIS 



024 05EE 026A A DOTQ2: .WORD 
5 

PACE ASSEMBLER REV-A 05/23/75 
PACE 



SEMIS 



1227 
1228 
1229 
1 2 30 
1231 
1232 
1233 
1234 
1 235 
1236 
1237 
1238 
1239 
1 240 
1241 



1242 



1243 



1.244 



1 245 



05EF 


8 6 45 


A 


05F0 


5850 


A 


05F1 


45 43 


A 


0 5F2 


D4 20 


A 


05F3 


05D5 


A 


05F4 


0342 


A 


05F5 


02C9 


A 


0 5F6 


029F 


A 


0 5F7 


02C9 


A 


05F8 


0155 


A 


05F9 


01F1 


A 


0 5 FA 


0 2DD 


A 


0 5 FB 


0103 


A 


0 5 FC 


000 7 

\J \J \J / 


A 


05FD 


03A6 


A 


05FE 


030B 


A 


05FF 


0457 


A 


0600 


0124 


A 


0601 


0010 


A 


0602 


02D0 


A 


0603 


0103 


A 


0604 


0008 


A 


0 6 05 


02C9 


A 


0606 


0161 


A 


0607 


0457 


A 


0608 


02DD 


A 


0609 


0283 


A 


060A 


037E 


A 


060B 


0450 


A 


060C 


029F 


A 


060D 


027B 


A 


060E 


0450 


A 



*************************************************** 

* TERMINAL INPUT * 

*************************************************** 

: EXPECT OVER + OVER DO KEY DUP 

07 +ORIGIN @ = IF DROP 08 
OVER I = DUP R> 2 - + >R - 
ELSE DUP OD - 

IF LEAVE DROP BL 0 ELSE DUP 

END IF I C! 0 I 1+ CI 

END IF EMIT LOOP DROP ; 

HEAD ORD , 6 , LONG , 'E'/256 

.WORD ' XP ' , ' EC ' , 'T'+EVEN,DOTQ-3 



EXPECT: . WORD DOCOL , OVER , PLUS , OVER , XDO 



EXPEC1: .WORD KE Y , DUP , L I T , 0 7 , PORIG , AT , EQUAL , ZBRAN 



.WORD EXPEC2-. , DROP , L I T , 08 , OVER , I , EQUAL 



.WORD DUP , FROMR , TWO , SUB , PLUS , TOR , SUB , BRAN 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





06 OF 


011B 


A 








1246 


0610 


0014 


A 




• WORD 


EXPEC5- • 


1247 


0611 


02DD 


A 


EX PEC 2 : 


• WORD 


DUP, L IT, OD , EQUAL, ZBRAN 




0612 


0103 


A 










0613 


OOOD 


A 










0614 


0457 


A 










0615 


0124 


A 








1248 


0616 


0007 


A 




.WORD 


EXPEC3- . , LEAVE , DROP , BL , ZERO , BRAN 




0617 


0273 


A 










0618 


02D0 


A 










0619 


0387 


A 










061A 


0376 


A 










061B 


011B 


A 








1249 


061C 


0002 


A 




.WORD 


EXPEC4-. 


1 250 


061D 


02DD 


A 


EX PEC 3 : 


.WORD 


DUP 


1251 


061E 


0161 


A 


EX PEC 4 : 


.WORD 


I, C STORE, ZERO , I ,ONEP ,C STORE 




061F 


0324 


A 










0620 


0376 


A 










0621 


0161 


A 










0622 


042B 


A 










0623 


0324 


A 








1252 


0624 


01ED 


A 


EX PEC 5 : 


.WORD 


EMIT,XLOOP 




0625 


012F 


A 








1253 


0626 


FFD3 


A 




.WORD 


EX PEC 1 - • , DROP, SEMIS 




0627 


02D0 


A 










0628 


026A 


A 








1254 














1255 








; : QUERY 


TIB @ BYTE 50 EXPECT 0 IN ! 


1256 














1257 


0 6 29 


8551 


A 




HEAD 


ORD , 5 , LONG , 'Q' /256 


1258 


062A 


5545 


A 




.WORD 


'UE' , 'RY'+ODD,EXPECT-5 




062B 


52D9 


A 










062C 


05EF 


A 








1259 


0 6 2D 


0342 


A 


QUERY: 


.WORD 


DOCOL,TIB , AT, BYTE, LIT, 005 0 




062E 


03B8 


A 










062F 


030B 


A 










0630 


02FD 


A 










0631 


0103 


A 










0632 


0050 


A 








1260 


0633 


05F4 


A 




.WORD 


EXPECT, ZERO, IN, STORE, SEMIS 




0634 


0376 


A 










0635 


03E2 


A 










0636 


031D 


A 










0637 


026A 


A 








1 261 








• 
9 






1262 


0638 


C180 


A 




HEAD 


IMM, 1 , SHORT, 00 ; NULL 


1263 


0639 


0629 


A 




.WORD 


QUERY-4 


1264 


063A 


0342 


A 


NULL: 


.WORD 


DOCOL,BLK, AT, ZBRAN 




063B 


03DD 


A 










063C 


030B 


A 










0 6 3D 


0124 


A 








1265 


063E 


0013 


A 




.WORD 


NULL2-. 


1 266 


063F 


037A 


A 




.WORD 


ONE, BLK, PS TORE, ZERO, IN, STORE 




0640 


03DD 


A 










0641 


02E3 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1 267 



1268 



1269 
1 270 
1271 

1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 



0642 


0376 


A 








0643 


03E2 


A 








0644 


031D 


A 








0645 


03DD 


A 




.WORD 


BLK,AT,BSCR,MOD,ZEQU,ZBRAN 


0646 


030B 


A 








0647 


039F 


A 








0648 


0919 


A 








0649 


028F 


A 








064A 


0124 


A 








064B 


0004 


A 




.WORD 


NULL 1 - . , QEXEC , FROMR ,DROP 


064C 


04EF 


A 








064D 


0283 


A 








064E 


02D0 


A 








064F 


01 IB 


A 


NULL 1 : 


.WORD 


BRAN 


0650 


0003 


A 




.WORD 


NULL3 - • 


0651 


0283 


A 


NULL2 : 


.WORD 


FROMR, DROP 


0652 


02D0 


A 








0653 


026A 


A 


NULL 3 : 


.WORD 


SEMIS 



1284 


0654 


8446 


A 




HEAD 


1285 


0655 


494C 


A 




.WORD 




0656 


CC20 


A 








0657 


0638 


A 






1286 


0658 


0342 


A 


FILL: 


.WORD 




0659 


02D5 


A 








065A 


027B 


A 








065B 


02C9 


A 








065C 


031D 


A 








065D 


02DD 


A 






1 287 


065E 


042B 


A 




.WORD 




065F 


0283 


A 








0660 


037A 


A 








0661 


0450 


A 








0662 


0201 


A 








0663 


026A 


A 






1 288 








» 




1 289 


0664 


8545 


A 




HEAD 


1290 


0665 


5241 


A 




.WORD 




0666 


53C5 


A 








0667 


0654 


A 






1291 


0668 


0342 


A 


ERASE: 


.WORD 




0669 


0376 


A 








066A 


0658 


A 








066B 


026A 


A 






1 292 








• 

9 





*************************************************** 

* FILL, ERASE, BLANKS, HOLD, PAD, CMOVE * 

* * * * *********************************************** 

NOTE THAT THE NEXT THREE WORDS FILL 
16-BIT WORDS, NOT BYTES. 

: FILL SWAP >R OVER ! DUP 1 + 
R> 1 - MOVE ; 

ORD , 4 ,LONG , ' F ' / 25 6 



.WORD DOCOL, SWAP , TOR, OVER, STORE, DUP 



.WORD ONEP , FROMR, ONE, SUB , MOVE, SEMIS 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1293 










» • 


BLANKS 


2020 FILL ; 


1 2 9 4 










» 






12 9 5 


0 6 6C 

\J \J \J \j 


8642 


A 






HEAD 


ORD.6.LONG 'B'/256 


1296 


066D 


4C41 


A 






.WORD 


'LA' , 'NK' , 'S'+EVEN,ERASE-4 




0 6 6E 


4 E 4B 


A 












066F 


D3 20 


A 












0670 


0664 


A 










129 7 


0671 


0342 


A 


BLANKS 


: .WORD 


DOCOL, LIT, 02020, FILL, SEMIS 




0672 


0103 


A 












0673 


2020 


A 












0674 


0658 


A 












0 6 75 


026A 


A 










1298 










» 






1299 


0676 


8448 


A 






HEAD 


ORD,4,LONG, 'H'/256 


1 300 


0677 


4F4C 


A 






.WORD 


'OL' , 'D'+EVEN, BLANKS -5 




0678 


C420 


A 












0679 


066C 


A 










1301 


067A 


0342 


A 


HOLD: 


.WORD 


DOCOL, LIT, -1 , HLD , P S TORE 




067B 


0103 


A 












067C 


FFFF 


A 












06 7D 


0426 


A 












067E 


0 2E3 


A 










1 302 


06 7F 


0426 


A 






.WORD 


HLD, AT, CSTORE, SEMIS 




0 6 8 0 

u U O V 


0 3 OR 


A 












0681 


0324 


A 












0682 


026A 


A 










13 03 
















1304 












NOTE THAT PAD IS A WORD ADDRESS. 


1305 
















1306 










• 


PAD HERE 22 + ; 


1307 
















1308 


0683 


8 350 


A 






HEAD 


ORD,3,LONG, 'P'/256 


1309 


0684 


4 1C4 


A 






.WORD 


'AD'+ODD,HOLD-4 




0685 


0676 


A 










1310 


0686 


0342 


A 


PAD : 


.WORD 


DOCOL, HERE, LIT, 002 2 , PLUS , SEMIS 




0687 


043A 


A 












0688 


0103 


A 












0689 


0022 


A 












068A 


029F 


A 












068B 


026A 


A 










1311 
















1312 










• 
• 


CMOVE 


-DUP IF OVER + SWAP DO 


1313 














DUP C@ I C! 1+ LOOP 


1314 














ELSE DROP END IF DROP ; 


1 3 1 "5 

X ~J X -J 
















1316 


068C 


8543 


A 






HEAD 


ORD,5,LONG, 'C/25 6 


1317 


0 6 8D 


LTt L F 
H u h r 


A 






.WORD 


'MO' , ' VE'+ODD,PAD-3 




068E 


56C5 


A 












068F 


0683 


A 










1318 


0690 


0342 


A 


CMOVE : 


.WORD 


DOCOL, DDUP,ZBRAN 




0691 


047D 


A 












0692 


0124 


A 










1319 


0693 


000E 


A 






.WORD 


CMOVE2- * ,OVER, PLUS , SWAP ,XDO 




0694 


02C9 


A 












0695 


029F 


A 











PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0696 


02D5 


A 








0697 


0155 


A 






1320 


0698 


02DD 


A 


CMOVE 1 : • WORD 


DUP,CAT,I,CSTORE,ONEP,XLOOP 




0699 


0311 


A 








0 69A 


0161 


A 








0 69B 


0324 


A 








0 6 9C 


04 2B 


A 








069D 


012F 


A 






1 321 


069E 


FFFA 


A 


.WORD 


CMOVE 1 - . , BRAN 




069F 


01 IB 


A 






1322 


06A0 


0002 


A 


. WORD 


CMOVE3- • 


1323 


06A1 


02D0 


A 


CMOVE 2: .WORD 


DROP 


1324 


06A2 


02D0 


A 


CMOVE 3: .WORD 


DROP, SEMIS 




06A3 


026A 


A 







1325 
1326 
1327 
1328 
1329 
1330 
1 331 
1332 
1333 
1334 
1 335 
1336 
1337 



1338 



1339 



*************************************************** 

* WORD * 

*************************************************** 

WORD BLK @ IF BLK @ BLOCK ELSE TIB @ 
END IF BYTE IN @ + SWAP ENCLOSE 
HERE 11 BLANKS IN +1 OVER - >R 
R HERE BYTE C! + HERE BYTE 1+ 
R> CMOVE : 



1 340 
1341 

1 342 



1343 



1 344 



06A4 


8457 


A 




HEAD 


ORD , 4 , LONG , 'W' /256 


06A5 


4F52 


A 




.WORD 


'OR' , 'D'+EVEN,CMOVE-4 


06A6 


C420 


A 








06A7 


068C 


A 








06A8 


0342 


A 


WO RD : 


.WORD 


DOCOL,BLK,AT, Z BRAN 


06A9 


03DD 


A 








06AA 


030B 


A 








06AB 


0124 


A 








06AC 


0006 


A 




.WORD 


WORD1-. , BLK, AT, BLOCK, BRAN 


0 6AD 


03DD 


A 








06AE 


030B 


A 








06AF 


09B6 


A 








06B0 


01 IB 


A 








06B1 


0003 


A 




.WORD 


WORD 2-. 


06B2 


03B8 


A 


WORD1 : 


.WORD 


TIB , AT 


06B3 


030B 


A 








06B4 


02FD 


A 


WO RD 2 : 


.WORD 


BYTE, IN, AT, PLUS , SWAP,ENCL 


06B5 


03E2 


A 








06B6 


030B 


A 








06B7 


029F 


A 








06B8 


02D5 


A 








06B9 


01B1 


A 








06BA 


0 4 3A 


A 




.WORD 


HERE, LIT, 17, BLANKS, IN, PS TORE 


06BB 


0103 


A 








06BC 


0011 


A 








06BD 


0671 


A 








06BE 


03E2 


A 








06BF 


02E3 


A 








06C0 


02C9 


A 




.WORD 


OVER, SUB , TOR, R, HERE, BYTE, C STORE 


06C1 


0450 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
D ICTIONARY 



1345 



1 346 



1347 
1348 
1349 
1350 
1351 
1352 
1353 



06C2 
06C3 
06C4 
06C5 
06C6 
06C7 
06C8 
06C9 
06CA 
06CB 
06CC 
06CD 



027B 
0289 
043A 
02FD 
0324 
029F 
043A 
02FD 
042B 
0283 
0690 
026A 



1354 
1355 



1356 



1357 



1358 



1359 



1360 

1361 
1362 



06CE 
06CF 
06D0 
0 6D1 
06D2 
06D3 
06D4 
06D5 
06D6 
06D7 
06D8 
06D9 
0 6DA 
06DB 
06DC 
06DD 
06DE 
06DF 
06E0 
06E1 
06E2 
06E3 
0 6E4 
06E5 
06E6 
06E7 
06E8 
06E9 
06EA 
06EB 
0 6EC 
06ED 
06EE 

06EF 
06F0 

06F1 
06F2 
0 6F3 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



8828 
4E55 
4D42 
4552 
A920 
06A4 
0342 
042B 
02DD 
027B 
0311 
040D 
030B 
0166 
0124 
0016 A 
02D5 A 
040D 
030B 
0213 
0 2D0 
046A 
040D 
030B 
0213 
02A7 
0412 
030B 
042B 
0124 
0004 
037A 
0412 

0 2E3 A 
0283 A 

011B 

FFE3 
0283 



.WORD PLUS , HERE, BYTE, ONEP 



• WORD FR0MR,CM0VE, SEMIS 



*************************************************** 

* (NUMBER), NUMBER, -FIND * 

*************************************************** 

HEAD ORD,8,LONG, ' ('/256 

.WORD 'NU' , 'MB' , 'ER' , ' ) '+EVEN , WORD- 4 



PNUMB: .WORD DOCOL 

PNUMB1: .WORD ONEP , DUP , TOR , C AT , BAS E , AT , D IG IT , ZBRAN 



.WORD PNUMB 3-. , SWAP , BASE , AT , US TAR 



.WORD DROP, ROT, BASE, AT, USTAR 



WORD DPLUS,DPL, AT, ONEP, ZBRAN 



A 

A 
A 



.WORD PNUMB2-. , ONE , DPL , PSTORE 



PNUMB 2 : .WORD FROMR , BRAN 

.WORD PNUMB 1 - . 
PNUMB 3 : .WORD FROMR, SEMIS 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



06F4 026A A 

1363 
1364 
1365 
1366 
1367 
1368 
1369 

1370 06F5 864E A 

1371 06F6 554D A 
06F7 4245 A 
06F8 D220 A 
06F9 06CE A 



1372 


06FA 


0342 


A 


NUMB: .WORD 


DOCOL, BYTE, ZERO, ZERO 




06FB 


02FD 


A 








06FC 


0376 


A 








0 6FD 


0376 


A 






1373 


06FE 


046A 


A 


. WORD 


ROT,DUP,ONEP , CAT, LIT 




06FF 


02DD 


A 








0700 


042B 


A 








0701 


0311 


A 








0 702 


0103 


A 






1374 


0703 


002D 


A 


.WORD 


'-' /25 6 , EQUAL, DUP, TOR, PLUS,L IT, -1 




0704 


0457 


A 








0705 


02DD 


A 








0706 


027B 


A 








0707 


029F 


A 








0708 


0103 


A 








0 709 


FFFF 


A 






13 75 


0 70A 


0412 


A 


NUMB 1 : .WORD 


DPL . STORE . PNUMB .DUP. CAT. BL. SUB . ZBRAN 

AJ A. J_J y *~* J- \J A>\ A-J y » \J A, X AJ % *•* \J A, £ V A 1 JL J U Ami J U U XJ y tU AJ JLV A A il 




0 7 OB 


0 3 ID 


A 








0 70C 


06D4 


A 








070D 


02DD 


A 








070E 


0311 


A 








070F 


0387 


A 








0710 


0450 


A 








0711 


0124 


A 






1376 


0712 


000B 


A 


.WORD 


NUMB 2-. , DUP, CAT, LIT, ' . '/256 




0713 


02DD 


A 








0714 


0311 


A 








0715 


0103 


A 








0716 


002E 


A 






1377 


0717 


0450 


A 


.WORD 


SUB , ZERO , Q ERROR, ZERO , BRA.N 




0718 


0376 


A 








0719 


04D6 


A 








071A 


0376 


A 








071B 


01 IB 


A 






1378 


071C 


FFEE 


A 


.WORD 


NUMB 1 - . v 


1379 


07 ID" 


02DD 


A 


NUMB 2 : .W0R0 n 


DROP , FROMR , ZBRAN 




071E 


0283 


A 








071 F 


0124 


A 






1 380 


0720 


0002 


A 


.WORD 


NUMB 3-. ,DMINUS 




0 721 


02BD 


A 






1 381 


0722 


026A 


A 


NUMB 3: .WORD 


SEMIS 


1382 








» 





: NUMBER BYTE 0 0 ROT DUP 1+ C@ 

2D = DUP >R + -1 

BEGIN DPL i (NUMBER) DUP C@ BL - 

WHILE DUP C@ 2E - 0 ? ERROR 0 REPEAT 

DROP R> IF DMINUS END IF ; 

HEAD ORD , 6 ,L0NG , ' N ' / 25 6 

.WORD 'UM' , 'BE' , 'R'+EVEN,PNUMB-6 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1383 
1384 

1385 



1 386 



1387 



1 388 
1389 
1390 
1391 
1392 
1393 
1394 
1 395 



0723 


852D 


A 




HEAD 


ORD , 5 , LONG , '-' /256 


0724 


4649 


A 




• WORD 


'FI ' , 'ND'+ODD,NUMB-5 


0 725 


4EC4 


A 








0 726 


06F5 


A 








0727 


0342 


A 


DFIND : 


.WORD 


DOCOL, BL, WORD ,HERE,CONT,AT 


0 7 28 


038 7 


A 








0 729 


06A8 


A 








0 72A 


0 43A 


A 








0 7 ?R 


0 3F A 


A 








072C 


030B 


A 






« 


0 7 2D 


030B 


A 




.WORD 


AT,PFIND,DUP,ZEQU, ZBRAN 


072E 


017D 


A 








072F 


02DD 


A 








0730 


028F 


A 








0731 


0124 


A 








0732 


0005 


A 




. WO RD 


DFIND 1 - . , DROP, HERE, LATE ST, PF I ND 


0733 


02D0 


A 








0734 


043A 


A 








0735 


049B 


A 








0736 


017D 


A 








0737 


026A 


A 


DFIND1 : 


.WORD 


SEMIS 



1396 


0738 


8728 


A 


1397 


0739 


4142 


A 




0 7 3A 


4F52 


A 




073B 


54A9 


A 




073C 


0723 


A 


1 398 


0 7 3D 


0342 


A 




073E 


0874 


A 




073F 


026A 


A 


1399 








1400 


0740 


8545 


A 


1401 


0741 


5252 


A 




0742 


4FD2 


A 




0743 


0738 


A 


1 402 


0744 


0342 


A 




0745 


03C5 


A 




0746 


030B 


A 




0747 


0297 


A 




0748 


0124 


A 


1403 


0749 


0002 


A 




074A 


0 7 3D 


A 


1 404 


074B 


043A 


A 




074C 


058E 


A 




074D 


0599 


A 




074E 


05CA 


A 


14 05 


074F 


0420 


A 


1406 


0750 


203F 


A 




0751 


2020 


A 



*************************************************** 

* ERROR HANDLER * 

*************************************************** 

.FORM STRING, 8, 8 

HEAD ORD , 7, LONG, ' ( ' / 25 6 

.WORD 'AB' , 'OR' , 'I) '+ODD , DFIND-4 



PABORT: .WORD DOCOL , ABORT , S EMI S 



HEAD ORD, 5, LONG, 'E'/256 

.WORD 'RR' , 'OR'+ODD , PABORT-5 



ERROR: .WORD DOCOL , WARN , AT , ZLESS , ZBRAN 

.WORD ERROR1-. , PABORT 
ERROR1 : .WORD HERE , COUNT , TYPE , PDOTQ 



STRING 4,' '/256 
.ASCII ' ? ' 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1407 



1408 



1409 
1410 
1411 
1412 
1413 
1414 
1415 

1416 



0752 
0753 
0754 
0755 
0756 
0 757 
0758 
0759 



0A05 
025B 
03E2 
030B 
03DD 
030B 
085C 
026A 



A 
A 
A 
A 
A 
A 
A 
A 



.WORD MESS,SPSTOR,IN,AT 



WORD BLK, AT, QUIT, SEMIS 



: ID. PAD 010 5F5F FILL DUP PFA LFA 
OVER - PAD SWAP MOVE PAD COUNT 
OIF AND TYPE SPACE ; 



1417 



1418 



1419 



075A 


8349 


A 


HEAD 


075B 


44AE 


A 


.WORD 


075C 


0740 


A 




075D 


0342 


A IDDOT: 


• WORD 


0 75E 


0 686 


A 




0 75F 


0103 


A 




0760 


0010 


A 




0761 


0103 


A 




0762 


5F5F 


A 




0763 


0658 


A 


.WORD 


0764 


02DD 


A 




0765 


04C0 


A 




0766 


04A3 


A 




0767 


02C9 


A 




0768 


0450 


A 




0769 


0686 


A 


.WORD 


076A 


02D5 


A 




076B 


0201 


A 




076C 


0686 


A 




076D 


058E 


A 




076E 


0103 


A 


.WORD 


076F 


001F 


A 




0770 


023F 


A 




0 771 


0599 


A 




0 772 


0475 


A 




0773 


026A 


A 





ORD,3,LONG, 'I'/256 



.WORD FILL, DUP, PFA, LFA, OVER, SUB 



.WORD PAD , SWAP , MOVE , PAD , COUNT 



.WORD LIT, 00 IF, AND, TYPE, SPACE, SEMIS 



1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 



0774 


8643 


A 


0775 


5245 


A 


0776 


4154 


A 



************************************************ 

* CREATE * 

*************************************************** 

: CREATE SP@ HERE 50 + < 2 ? ERROR -FIND 

IF DROP NFA ID. 4 MESSAGE SPACE 
END IF HERE DUP BYTE DUP C@ 

WIDTH @ MIN DUP CELL 1+ ALLOT 

OVER AO TOGGLE + 80 TOGGLE 

LATEST , CURRENT @ ! 

HERE 1+ , ; 

HEAD 0RD,6,L0NG, 'C/256 

.WORD 'RE' , 'AT' , 'E' + EVEN, IDDOT- 3 



PACE ASSEMBLER REV-A 05/23/75 



ICTIONARY 





0777 


C520 


A 




0 7 78 


0 75A 


A 


14 35 

jL *T -*J *J 


0 7 7 9 


0 342 


A 

£\ 




0 7 7 A 


0 2 5 5 

\J £m Jr _/ 


A 




0 7 7B 


04 3A 


A 




0 7 7T 


0 10 3 


A 




OUT) 


00 SO 


A 




0 7 7E 


0 29F 


A 


1436 


0 7 7F 


0 4 5D 


A 




0 7 8 0 


0 3 7F 


A 
A 




0 781 

V/ / w JL 


0 40 6 


A 




0 7 8? 


0 7 9 7 


A 




0 7 8"} 


0 1 9 A 


A 

A 


14 3 7 


0 784 


0008 


A 




0 7 8 S 

VJ / O _/ 


0 ?n0 

VJ i. u vj 


A 




0 786 
vj / o u 


0 4R 1 


A 

A 




0787 


0 75D 


A 


14 38 

1 *+ J o 


0 7 8 8 


0 10 3 

vj i- vj j 


A 




0 7 8 9 

VJ / O .7 


0004 

VJ v/ VJ *♦ 


A 

A 




0 78A 


0A05 


A 




0 7 8tt 


0 4 7 5 
vj t / j 


A 


1 4 3 Q 


0 7 8r 


0 A ^ A 


A 
A 




0 7 8n 


0 200 


A 

A 




0 7 8F 

VJ / O Hi 


n 9 im 


A 
A 




0 7 ft v 
u / Or 


U ZD JJ 


A 
A 




0 790 


0311 


A 




0 7 9 1 


U JO u 


A 
A 




a 7 o o 


A *3 A "D 

U jUd 


A 

A 


1 440 

1 H *+ VJ 


0 7 9 3 


o 8 rv 


A 
A 




n 7qa 


A 9 n ft 


A 




A 7 o c 


U jUj 


A 

A 




0 7 9 6 
vj / 7 vj 


0 A 9"R 

VJ H i. JD 


A 

A 




A 7 Q 7 

u / y / 


A /i /. 0 


A 

A 




A 7 A O 

0 7 9 o 


A 1 A 

0 2C 9 


A 


14 4 1 


0 7 9 9 

VJ / ;7 ;7 


0 10 3 

VJ 1 VJ J 


A 
A 




A 7 Q A 


AflAfl 
UUAU 


A 
A 




A 7 O T> 


a Tun 
U ZED 


A 

A 




0 7 9P 

vj / y \j 


0 9 9 F 
vj ^ !7 r 


A 
A 




n 7 on 


0 1 0 "3 
UiU J 


A 

A 




A 7 Q TP 

u / y ti 


A A Q A 

UUoU 


A 

A 


1442 


0 79F 


0 2ED 


A 




0 7 A 0 

VJ / A U 


0 A Q Tt 


A 
A 




A 7 A 1 
U / A 1 


A /. /. Q 
U 4 H O 


A 

A 




07A2 


0401 


A 




07A3 


030B 


A 


1443 


07A4 


031D 


A 




0 7A5 


043A 


A 




0 7A6 


042B 


A 




07A7 


0448 


A 




0 7A8 


026A 


A 



1444 
1445 
1446 
1 447 
L:448 



CREATE: . WORD D0C0L , SP AT , H ERE , L IT , 00 5 0 , PLUS 



.WORD LESS, TWO , QERR0R , DFIND , ZBRAN 



.WORD CREAT1-. , DROP , NFA , IDD0T 



WORD LIT, 4, MESS, SPACE. 



CREAT1: .WORD HERE , DUP , BYTE , DUP , CAT , WIDTH , AT 



.WORD MI N, DUP, CELL, 0NEP , ALLOT, OVER 



WORD LIT, 00A0 , TOGGLE, PLUS , LIT, 008 0 



WORD TOGGLE, LATEST, COMMA, CURR, AT 



WORD STORE, HERE, ONEP, COMMA, SEMIS 



*********************************************** 

* [COMPILE], LITERAL, DLITERAL * 

*************************************************** 



\ 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1449 


0 7A9 


C 9 5B 


A 




HEAD 


1 a r n 


n 7 A A 
U / A A 


A 1 A T? 

T J t " 


A 




un p n 

• WU xvx/ 




A, "7 A Tl 
0 /AB 


;,ti c a 

4D 5 U 


A 

A 








n 7 a r* 


A Q AT 

1 .7 til 


A 

t\ 












A 
A 








n 7 A 17 
U / AEi 


H 7 7 A 


A 

A 






1451 


0 7AF 


0 342 


A 


BCOMP • 

XJ Vj \J LX X • 


• WORD 




0 7R 0 


0 7 9 7 


A 
tx 








o 7r 1 

U / D X 


n 7 ft f 

u ^. o r 


A 
A 








0 7B2 


0 3 76 


A 








U / O J 


o An 


A 
A 






1 *f _) £. 


n 7T* A 


n 9n n 
u /.D u 


A 

A 




• WU L\U 




0 7R 5 


0 A A A 


A 








U / BO 


U 4 4 o 


A 

A 








0 7B 7 


Alii 

0 2 6A 


A 

A 






1 4 -> J 








» 




14 5 4 


A Tin O 

0 7B 8 


C 7 4C 


A 




HEAD 


1455 


0 7B 9 


49 54 


A 




. WORD 




n 7 U A 
U / 15 A 




A 

A 






u 


A IT)]) 

U / U b 


/.Inn 
^ ILL, 


A 

A 








U / tt L 


n 7 A Q 
U / A? 


A 

A 






X t J u 


n 7Ttn 

V / D U 


0 1 A 7 


A 


T TTFR • 


wn p n 




f\ 7 a u 


n r» 7 


A 

fV 








fi 7 R V 
U i DC 




A 
A 








0 7C0 


0124 


A 






L 45 7 


0 7C l : 


0004 


A 




• WORD 




o i c 9 


n s 9 i 


A 








0 7C 3 


0 10 3 


A 








n 7r a 


n a a ft 

U H *♦ O 


A 
A 






i t J o 


U / L» J 


H 9 A A 
Ui OA 


A 
A 


Xj 1 x Ei rv 1 • 


un p n 


1 4 5 Q 

X *-r J .7 








• 

» 




i /, in 
i 4 b U 


U /C 6 


no/./. 


A 

A 




IIP AT\ 


14 61 


0 7C 7 


i n / c\ 

4C49 


A 

A 




• WO RD 




n. ~i n Q 
U / L o 


C /, A C 


A 

A 








0 7 C 9 


5 2 41 


A 








0 7C A 


C C 2 0 


A 








o 7rij 
U / L i> 


A 7u Q 

U /bo 


A 

A 






1 /. c o 
14 6 2 


0 7CC 


0 34 2 


A 


DLITER : 


• WO RD 




0 7CD 


0407 


A 








0 7CE 


0 30B 


A 








0 7CF 


0124 


A 






1463 


0 7D0 


0004 


A 




.WORD 




0 7D 1 


0 2D 5 


A 








0 7D2 


0 7BD 


A 








0 7D3 


0 7BD 


A 






14 6 4 


0 7D 4 


0 2 6A 


A 


DLITE1 : 


.WORD 


| V, £ C 












IA66 








: ? STACK 


1467 












1468 








• 
> 




1469 


07D5 


863F 


A 




HEAD 


1470 


07D6 


5354 


A 




.WORD 




0 7D7 


4143 


A 








07D8 


CB20 


A 








07D9 


07C6 


A 







.WORD DROP, CFA, COMMA, SEMIS 



' t rn ' ' T? n ' 'at' 



.WORD LITER1-. ,C0MPIL, LIT, COMMA 



SEMIS 

IMM , 8 , LONG , ' D ' / 25 6 

'LI' , 'TE' , 'RA' , ' L ' +EVEN ,LITER-5 



.WORD DLITE1-. , SWAP, LITER, LITER 



S P@ HERE 42 , + < 7 ? ERROR 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1471 



1472 



07DA 


0342 


A 


0 7DB 


03AE 


A 


0 7DC 


030B 


A 


07DD 


0255 


A 


07DE 


045D 


A 


0 7DF 


037A 


A 


0 7E0 


04D6 


A 


07E1 


0255 


A 


07E2 


0 4 3A 


A 


0 7E3 


0103 


A 


07E4 


0 04 2 


A 


07E5 


029F 


A 


07E6 


045D 


A 


07E7 


0103 


A 


0 7E8 


0007 


A 


07E9 


04D6 


A 


07EA 


026A 


A 



1474 
1475 
1476 
1477 
1478 



1479 


07EB 


8949 


A 


1480 


07EC 


4E54 


A 




07ED 


4552 


A 




0 7EE 


5052 


A 




0 7EF 


45D4 


A 




07F0 


07D5 


A 


1481 


07F1 


0342 


A 


1482 


07F2 


0727 


A 




07F3 


0124 


A 


1483 


07F4 


000F 


A 




07F5 


0407 


A 




07F6 


030B 


A 




07F7 


045D 


A 




07F8 


0124 


A 


1484 


07F9 


0005 


A 




07FA 


04AA 


A 




0 7FB 


0448 


A 




07FC 


011B 


A 


1485 


0 7FD 


0003 


A 


1:486 


0 7FE 


04AA 


A 




0 7FF 


0112 


A 


I 487 


0800 


07DA 


A 




0801 


01 IB 


A 


1 488 


0802 


000E 


A 


IJ489 


0803 


0 4 3A 


A 




0804 


06FA 


A 




0805 


0412 


A 




0806 


030B 


A 




0807 


042B 


A 




0808 


0124 


A 


1490 


0809 


0004 


A 




080A 


07CC 


A 




080B 


01 IB 


A 



QSTACK: • WORD DOCOL , S ZERO , AT , SPAT , LESS 



.WORD ONE, QERROR, SPAT, HERE, LIT, 00 4 2 



.WORD PLUS ,LESS , LIT, 7 , QERROR , S EMI S 



*************************************************** 

* INTERPRET * 

************************************************* ** 

HEAD ORD,9,LONG, 'I'/256 

.WORD ' NT ' , ' ER' , ' PR ' ,' ET '+ODD , QSTACK- 5 



INTER: .WORD 
INTER1: .WORD 



DOCOL 

DFIND , ZBRAN 



.WORD INTER4 - • , STATE , AT , LES S , ZBRAN 



. WQRD INTER2-. ,CFA, COMMA, BRAN 



.WORD 
INTER2: .WORD! 



INTER3-. 
C FA . EXEC 



INTER3: .WORD! QSTACK, BRAN 



.WORD 

INTER4: .WORD: 



INTER7- . 

HERE , NUMB , DPL, AT , ONEP', ZBRAN 



.WORD INTER5-. ,DLITER,BRAN 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1491 


080C 


0003 


A 




. WORD 


INTER6-. 


1492 


0 8 0D 


02D0 


A 


INTER5 : 


• WORD 


DROP, LITER 




080E 


07BD 


A 








1493 


080F 


07DA 


A 


INTER6 : 


.WORD 


QSTACK 


1494 


0810 


01 IB 


A 


INTER 7 : 


.WORD 


BRAN 


1495 


081 1 


FFE1 


A 




.WORD 


INTER 1 - . , SEMIS 




0812 


026A 


A 









1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 



*************************************************** 

* IMMEDIATE, VOCABULARY, DEFINITIONS, FORTH, ( * 
*************************************************** 

: IMMEDIATE LATEST BYTE 40 TOGGLE ; 



1505 



1506 



1 507 
1 508 
1509 
1510 
1511 
1512 
1513 



0813 


8949 


A 


HEAD 


ORD, 9 , LONG , 'I'/256 


0814 


4D4D 


A 


.WORD 


'MM' , 'ED' , 'IA' , 'TE'+ODD , INTER 


0815 


4544 


A 






0816 


4941 


A 






0817 


54C5 


A 






0818 


07EB 


A 






0819 


0342 


A IMMED: 


.WORD 


DOCOL, LATEST, BYTE 


081A 


049B 


A 






081B 


0 2FD 


A 






081C 


0103 


A 


.WORD 


LIT, 0040 , TOGGLE, SEMIS 


081D 


0040 


A 






081E 


02ED 


A 






081F 


026A 


A 







VOCABULARY <BUILDS 81A0 , CURRENT @ 

CFA , HERE VOC-LINK @ , VOC-LINK I 
DOES> 1+ CONTEXT ! ; 



1514 



1515 



1516 



0820 


8A5 6 


A 


HEAD 


0821 


4F43 


A 


.WORD 


0822 


4142 


A 




0823 


554C 


A 




0824 


4152 


A 




0825 


D920 


A 




0826 


0813 


A 




0827 


0342 


A VOCAB: 


.WORD 


0828 


0575 


A 




0829 


0103 


A 




082A 


8U0 


A 




0828 


04 48 


A 




082C 


0401 


A 


.WORD 


082D 


030B 


A 




082E 


04AA 


A 




082F 


0448 


A 




0830 


043A 


A 




0831 


03D8 


A 




0832 


030B 


A 


.WORD 


0833 


0448 


A 




0834 


03D8 


A 




0835 


031D 


A 




0836 


057D 


A 





' r\ n f * a t» * ' tt t ' 'Art' ' tt ' 



.WORD CURR,AT, CFA, COMMA, HERE, VOCL 



.WORD AT, COMMA, VOCL, STORE, DOES 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1517 


0837 


042B 


A 




0838 


03FA 


A 




0839 


031D 


A 




0 8 3A 


026A 


A 


1518 








1519 


083B 


C546 


A 


1520 


083C 


4F52 


A 




0 8 3D 


54C8 


A 




083E 


0820 


A 


1521 


083F 


0583 


A 




0840 


0837 


A 




0841 


81 AO 


A 




0842 


0C65 


A 




0843 


0000 


A 


1522 








1523 


0844 


8B44 


A 


1524 


0845 


4546 


A 




0846 


494E 


A 




0847 


4954 


A 




0848 


494F 


A 




0849 


4ED3 


A 




084A 


083B 


A 


1525 


084B 


0342 


A 




084C 


03FA 


A 




084D 


030B 


A 




084E 


0401 


A 




084F 


031D 


A 




0850 


026A 


A 


1526 








1527 


085 1 


C1A8 


A 


1528 


0852 


0844 


A 


1529 


0853 


0342 


A 




0854 


0103 


A 




0855 


0029 


A 




0856 


06A8 


A 




0857 


026A 


A 


1 530 








1531 








1532 








1533 








1534 








1535 


0858 


8451 


A 


1536 


0859 


5549 


A 




085A 


D420 


A 




085B 


0851 


A 


1537 


085C 


0342 


A 




085D 


0376 


A 




085E 


03DD 


A 




085F 


031D 


A 




0860 


052C 


A 


1538 


0861 


0262 


A 




0862 


01FC 


A 




0863 


062D 


A 




0864 


07F1 


A 


1539 


0865 


0407 


A 



DOVOC: . WORD ONEP , CONT , S TORE , S EMI S 



HEAD IMM, 5, LONG, 'F'/25 6 

• WORD ' OR' , ' TH'+ODD , VOCAB-7 



FORTH: .WORD DODOES , DOVOC , 08 1A0 , TASK-4 , 0 



HEAD ORD , 11, LONG, ' D ' / 2 5 6 

.WORD 'EF' ,'IN' ,'IT' ,'IO' , 'NS '+ODD , FORTH- 4 



DEFIN:: .WORD DOCOL,CONT, AT ,CURR, STORE, SEMIS 



PAREN :; 



HEAD IMM, 1 , SHORT, ' C/256 

.WORD DEFIN- 7 

.WORD DOCOL,LIT, ') ' / 2 5 6 , WORD , S EMI S 



*************************************************** 

* QUIT, ABORT * 

*************************************************** 



HEAD ORD, 4, LONG, 'Q'/256 

.WORD ' UI ' ,'T'+EVEN,PAREN-2 



QUIT: .WORD DOCOL , ZERO , BLK , STORE , LBRAC 



QUIT1 : .WORD RPSTOR , CR , QUERY , INTER 



WORD STATE, AT, ZEQU,ZBRAN 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





a o a c 
0 8 6 6 


0 30B 


A 








0 86 7 


028F 


A 








UoOo 


All/. 

U 1 2 4 


A 

A 






1 C / ft 


A Q C O 
0 O 0 9 


AAA/ 

0 0 04 


A 


. WORD 


QUIT2- . , PDOTQ 




ftQ£A 

U o DA 


A 1 n a 
U DC A 


A 

A 






i sn 
1 j *f 1 


no A n 


n i o r» 
U jZU 


A 

A 


STRING 


3,' '/256 


i i a o 

1 J 4 I 


A Q £ <"* 

0 o bC 


4F4B 


A 


.ASCII 


'OK' 


1543 


08 6D 


0 1 1 B 


A 


QUIT2: • WORD 


BRAN 


1 J t 


n ft « v 


r r r J 


A 

A 


.WORD 


QUIT1-. ,SEMIS 




A O £. Tl 

086F 


026A 


A 






1545 












1546 








; : ABORT SPi DECIMAL DR0 CR 


1547 








»» 

, • 


PACE FORTH V 4.0" [COMPILE] 


1 548 








; FORTH DEFINITIONS QUIT : 


1549 








* 




1550 


08 70 


8541 


A 


HEAD 


0RD,5,L0NG, A /256 


1551 


0871 


424F 


A 


• WORD 


'BO' , 'RT'+ODD , QUIT- 4 




A O "7 

0 8 7 2 


5 2D4 


A 






A Q 7 1 


A Q 1 Q 


A 

A 






i i 1 1 
1 J J 2 


A O "7 /. 

0 8 7 4 


0 34 2 


A 


ABORT: .WORD 


DOCOL, SPSTOR, DEC, DRONE, CR, PDOTQ 




0 8 7 5 


u 4 JO 


A 
A 






Uo/O 


Uj j j 


A 

A 








A O 7 "7 

0 8 7 7 


09 7F 


A 








A ft 7 ft 
UO/O 


ft 1 TJ/i 

U 1 r L> 


A 

A 








A Q "7 A 


A C n a 

0 5C A 


A 






1 c c o 

15 5 3 


0 8 7A 


1150 


A 


STRING 


17, 'P'/256 


111/. 
L D D H 


A Q 7 u 
U O / D 


4 1 4 J 


A 

A 


.ASCII 


'ACE FORTH V 4.0' 




Uo/t 


A 1 O A 

4 -> 2U 


A 

A 








uo/D 


4 D 4F 


A 

A 








n. ft 717 


19 1/. 
J t J^ 


A 

A 








A Q 7 T? 
U O / F 


A O O A 

4 o 2 0 


A 

A 








0 880 


2056 


A 








0881 


2034 


A 








0882 


2E30 


A 






1555 


0883 


083F 


A 


.WORD 


FORTH, DE FIN, QUIT, SEMIS 




0884 


084B 


A 








0885 


085C 


A 








0886 


026A 


A 






1556 












1557 










15 5 8 










COLD START * 


1559 








*************************************** 


1560 












1561 


088 7 


8443 


A 


HEAD 


0RD,4,L0NG, 'Q'/256 


156 2 


08 88 


4F4C 


A 


.WORD 


'OL' , 'D'+EVEN,AB0RT-4 




0889 


C420 


A 








A Q Q A 
U O O A 


A Q 7 A 

U o / u 


A 

A 






1 ceo 

1 JO J 


0 8 8B 


A Q o n 

OooC 


A 

A 


COLD: .WORD 


. + 1 


1564 


088C 


142 3 


A 


CENT: JSR 


INIT ; (INSTALL. DEPEND.) 


1565 


08 8D 


C912 


A 


LD 


X.ORGPTR ; PTR TO STARTUP LITS 


1566 


088E 


C206 


A 


LD 


0,06(X) ; INITIALIZE 


1567 


088F 


D1B2 


A 


ST 


0,FORTH+3 ; FORTH VOCABULARY 


1568 


0890 


5108 


A 


LI 


1,08 ; INIT 8 USER VARS 


1569 


0891 


1902 


A 


JMP 


LDUP 


1570 


0892 


5105 


A 


WENT: LI 


1,05 ; INIT 5 USER VARS 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1 C "7 1 
15/1 


A Q A O 

08 9 3 


C 9 0C 


A 




LD 


X, ORGPTR ; PTR TO STARTUP LITS 


15 7 2 


0894 


CE08 


A 


LDUP : 


LD 


Y,08(X) ; INITIALIZE 


15 7 3 


f\ o n c 

0895 


DC 2 2 


A 




ST 


XT TT T\ TT *HI T"* T\ T\ /X T »T fTl T~l T\ 

Y,UP ; USER POINTER 


1 C "7 1. 

1 -> / 4 


A Q A C 

o o y o 


fi 1 A A 

C 2 0 9 


A 

A 




LD 


0, 09(X) ; MOVE FROM LITERAL 


1 C "7 K 
1 J / J 


a o n i 
0 8 9 7 


D3 03 


A 

A 




ST 


U,03(Y) ; AREA TO USER AREA 


1 C ~1 £ 

15 7 6 


a O n o 

08 9 8 


7A0 1 


A 




AI S Z 


X, 1 


1 C "7 "7 

15/7 


a o n n 
0 8 9 9 


"7 T> A 1 

7 B 0 1 


A 

A 




A T C *7 

AI S Z 


V 1 


15 78 


089A 


79FF 


A 




AI SZ 


1 1 

1 , -1 


15 79 


/s rj /s n 

08 9B 


1 9FA 


A 




JMP 


LDUVS 


i son 
1 5 o U 


A Q o r> 

o o y c 


L _) U Z 


A 

A 




LD 


IP, IPO ; POINT IP TO ABORT 


1581 


089D 


9900 


A 




JMP 


@START ; START AT RP ! 


1 C O 1 

1 5 8 2 


A O A P 

0 8 9 E 


0 2 6 3 


A 

A 


START : 


.WORD 


RPSTOR+1 


1 coo 

1 JO J 


U o V r 


A ft 7 GL 
U O / D 


A 

A 


IPO : 


.WORD 


ABORT+1 


ICQ/. 


A Q A A 


A A 1 A 


A 

A 


ORGPTR : 


.WORD 


ORIG ; START OF LITERALS 


I JOJ 














1 c o c 

15 86 










1 C O 1 

1 5 o / 












MATH UTILITY * 


1 coo 

1588 










15 8 9 








; 






15 9 0 


A O A 1 

08A1 


8 4 5 3 


A 




n £i AU 


At>Tk ■/. TAXTO ' O ' / O C C 

UK.JJ , 4 , LUNG , b /2jD 


1591 


08A2 


2D3E 


A 




• WORD 


-> , D +EVEN,C0LD-4 




08A3 


C420 


A 










0 8A4 


088 7 


A 








i c n i 
15 9 2 


A O A C 

0 8A5 


A O A C 

08A6 


A 


STOD : 


. WORD 


. + 1 


1593 


08A6 


5000 


A 




LI 


0 , 0 


ten/ 

15 9 4 


08A7 


A n A A 

9F00 


A 




CUT 


A A / C T> \ 


1 C A c 

15 9 5 


0 8A8 


9 8F9 


I 




JMP 


PUSH 


1596 


08A9 


50FF 


A 




LI 


0,-1 


i c n "7 

159 7 


A O A A 

0 8AA 


f\ O Tt f\ 

9 8F9 


I 




JMP 


PUSH 


1 coo 
1 5 9 o 








» 






15 9 9 


08AB 


8 2 2B 


A 




HEAD 


ORD , 2 , LONG , '+' /256 


i a a n 


n Q a r> 


AD 2 U 


A 




.WORD 


'-'+EVEN, STOD-4 




U OA1J 


A ft A 1 

U oA 1 


A 

A 








1 A fi 1 
1 0 U 1 


A ft A 1? 

U o AHi 


U j 4 2 


A 

A 


PMI i 


.WORD 


DOCOL,ZLESS,ZBRAN 




0 8 A F 


0 2 Q 7 


A 
tx 










n sun 

U O J5 u 


A 1 9 /i 
U i Z 4 


A 








1 0 u z 


n ft n l 
u O D 1 


UUUz 


A 

A 




.WORD 


PMI1-. , MINUS ' 




A ft n o 
U o Jj 2 


U 2B 4 


A 

A 








16 0 3 


08B3 


0 26A 


A 


PMI1 : 


.WORD 


SEMIS 


i £ a / 

16 04 








» 






1 £L f\ C 

16 05 


08B4 


8 344 


A 




HEAD 


ORD , 3 , LONG , ' D ' / 25 6 


1 606 


08B5 


2 BAD 


A 




.WORD 


'+-'+0DD,PMI-3 




08B6 


08AB 


A 








1 C A ~l 

16 0 7 


0 8B 7 


0342 


A 


DPMI : 


.WORD 


DOCOL,ZLESS,ZBRAN 




0 8B8 


029 7 


A 










08B9 


0124 


A 








1608 


0 8BA 


0002 


A 




.WORD 


DPMI1-. ,DMINUS 




08BB 


02BD 


A 








1 609 


08BC 


026A 


A 


DPMI1 :: 


.WORD 


SEMIS 


1610 








» 






1611 


08BD 


8341 


A 




HEAD 


ORD, 3, LONG, 'A'/256 


1612 


08BE 


42D3 


A 




.WORD 


'BS'+0DD,DPMI-3 




08BF 


08B4 


A 








1613 


08C0 


0342 


A 


ABS : 


.WORD 


DOCOL, DUP, PMI , SEMIS 




08C1 


02DD 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



08C2 08AE A 
08C3 026A A 

1614 

1615 08C4 8444 A 

1616 08C5 4142 A 
08C6 D320 A 
08C7 08BD A 

1617 08C8 0342 A 
08C9 02DD A 
08CA 08B7 A 
08CB 026A A 

1618 

1619 08CC 834D A 

1620 08CD 49CE A 
08CE 08C4 A 

1621 08CF 08D0 A 

1622 08D0 C300 A 

1623 08D1 9F01 A 

1624 08D2 98F6 I 

1625 08D3 98FA I 
1626 

1627 08D4 834D A 

1628 08D5 41D8 A 
08D6 Q8CC A 

1629 08D7 08D8 A 

1630 08D8 C300 A 

1631 08D9 9F01 A 

1632 08DA 98FA I 

1633 08DB 98F6 I 
1 634 

1635 
1636 
1637 
1638 

1639 08DC 824D A 

1640 08DD AA20 A 
08DE 08D4 A 

1641 08DF 0342 A 
08E0 02C9 A 
08E1 02C9 A 
08E2 024D A 
08E3 027B A 

1642 08E4 08C0 A 
08E5 02D5 A 
08E6 08C0 A 
08E7 0213 A 

1643 08E8 0283 A 
08E9 08B7 A 
08EA 026A A 

1644 

1645 08EB 824D A 

1646 08EC AF20 A 
08ED 08DC A 

1647 08EE 0342 A 
08EF 02C9 A 



HEAD ORD ,4, LONG, ' D ' / 2 5 6 

• WORD 'AB' , ' S '+EVEN,ABS-3 



DABS: .WORD DOCOL , DUP , DPMI , S EMI S 



HEAD ORD, 3, LONG* 'M'/256 

.WORD ' IN'+ODD,DABS-4 



MIN: .WORD .+1 

LD 0,0(SP) 

SKG 0,1(SP) 

JMP BIN 

JMP POP 



GET BOTTOM 
COMPARE WITH SECOND 
IF BOTTOM <= SECOND 
IF BOTTOM > SECOND 



HEAD ORD, 3, LONG, 'M' /256 

.WORD 'AX'+ODD,MIN-3 



MAX: .WORD .+1 

LD 0,0(SP) 

SKG 0,1(SP) 

JMP POP 

JMP BIN 



GET BOTTOM 
COMPARE WITH SECOND 
IF BOTTOM <= SECOND 
IF BOTTOM > SECOND 



* * * * * *********************************** * ********** 

SIGNED MATH 

*************************************************** 

HEAD ORD, 2 ,LONG, 'M' /256 

.WORD '*'+EVEN,MAX-3 



MSTAR: .WORD DOCOL , OVER , OVER , XOR , TOR 



.WORD ABS , SWAP , ABS ,USTAR 



.WORD FROMR, DPMI , SEMIS 



HEAD ORD , 2 , LONG , ' M ' / 2 5 6 

.WORD '/'+EVEN, MS TAR- 3 



MSLASH: .WORD DOCOL , OVER , TOR , TOR 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





08F0 


027B 


A 












08F1 


027B 


A 










1648 


08F2 


08C8 


A 




.WORD 


DABS ,R,ABS,USLASH 






08F3 


0289 


A 












08F4 


08C0 


A 












08F5 


0227 


A 










1649 


08F6 


0283 


A 




.WORD 


FROMR, R,XOR,PMI , SWAP 






08F7 


0289 


A 












08F8 


024D 


A 












08F9 


08AE 


A 












08FA 


02D5 


A 










1650 


08FB 


0283 


A 




.WORD 


FROMR , PMI , SWAP , S EMI S 






08FC 


08AE 


A 


- 










08FD 


02D5 


A 












08FE 


026A 


A 










1651 








» 








1652 


08FF 


81AA 


A 




HEAD 


ORD, 1 , SHORT, '*' /256 




1653 


0900 


08EB 


A 




. WO RD 


MSLASH-3 




1654 


0901 


0342 


A 


STAR: 


.WORD 


DOCOL, US TAR, DROP, SEMIS 






0902 


0213 


A 












0903 


02D0 


A 












0904 


026A 


A 










1655 








» 








1656 


0905 


842F 


A 




HEAD 


ORD, 4, LONG, ' /' /256 




1657 


0906 


4D4F 


A 




.WORD 


'MO' , 'D'+EVEN, STAR-2 






0907 


C420 


A 












0908 


08FF 


A 










1658 


0909 


0342 


A 


SLMOD : 


.WORD 


DOCOL, TOR, S TOD, FROMR, MSLASH, 


SEMIS 




090A 


027B 


A 












090B 


08A5 


A 












090C 


0283 


A 












090D 


08EE 


A 












090E 


026A 


A 










1659 








• 

9 








1660 


090F 


81AF 


A 




HEAD 


ORD, 1 , SHORT, ' /' /256 




1661 


0910 


0905 


A 




.WORD 


SLMOD-4 




1662 


0911 


0342 


A 


SLASH: 


.WORD 


DOCOL , SLMOD , SWAP , DROP , SEMI S 






0912 


0909 


A 












0913 


02D5 


A 












0914 


02D0 


A 












0915 


026A 


A 










1663 








J 








1664 


0916 


8 34D 


A 




HEAD 


ORD, 3, LONG, 'M'/256 




1665 


0917 


4FC4 


A 




.WORD 


'OD'+ODD,SLASH-2 






0918 


090F 


A 










1666 


0919 


0342 


A 


MOD : 


.WORD 


DOCOL, SLMOD, DROP, SEMIS 






091A 


0909 


A 












091B 


02D0 


A 












091C 


026A 


A 










1667 








» 








1668 


09 ID 


852A 


A 




HEAD 


ORD, 5, LONG, '*'/256 . 




1669 


091E 


2F4D 


A 




.WORD 


'/M' , 'OD'+ODD,MOD-3 






091F 


4FC4 


A 












0920 


0916 


A 










1670 


0921 


0342 


A 


SSMOD: 


.WORD 


DOCOL, TOR, MSTAR, FROMR, MSLASH 


, SEMIS 



s 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





09 2 2 


0 2 7B 


A 










0 923 


08DF 


A 










0924 


0283 


A 






', 




0925 


08EE 


A 










0926 


026A 


A 








1671 








• 
9 






1672 


0927 


822A 


A 




HEAD 


ORD,2,LONG,'*'/256 


1673 


0928 


AF20 


A 




.WORD 


' /'+EVEN, SSMOD-4 




0929 


091D 


A 








1674 


092A 


0342 


A 


SSLASH: 


.WORD 


DOCOL,SSMOD, SWAP, DRQP, SEMIS 




092B 


0921 


A 










092C 


02D5 


A 










092D 


02D0 


A 










092E 


026A 


A 








1675 








» 






1676 


092F 


8 5 4D 


A 




HEAD 


ORD , 5 , LONG , 'M' / 25 6 


16 7 7 


0930 


2F4D 


A 




• WORD 


/M , OD +ODD , SSLASH-3 




0 9 31 


4FC4 


A 










0932 


0927 


A 








16 78 


0933 


0342 


A 


MSMOD : 


. WO RD 


DOCOL,TOR, ZERO ,R,USLASH, FROMR 




0934 


02 7B 


A 










0935 


0376 


A 










0936 


0289 


A 










0937 


0227 


A 










0938 


0283 


A 








1679 


0939 


02D5 


A 




.WORD 


SWAP, TOR, USLASH,FROMR, SEMIS 




093A 


027B 


A 










093B 


0227 


A 










093C 


0283 


A 










093D 


026A 


A 








1680 








J 






1681 










1582 








• * 
» 




DISC UTILITY, GENERAL USE * 


1683 










1684 








• 

9 






1685 


093E 


8355 


A 




HEAD 


ORD, 3, LONG, 'U'/256 


1686 


093F 


53C5 


A 




.WORD 


'SE'+ODD,MSMOD-4 




0940 


092F 


A 








1687 


0941 


0367 


A 


USE: 


.WORD 


DOVAR, BUFFS 




0942 


1DF0 


A 








1688 








5 






1689 


0943 


8450 


A 




HEAD 


ORD, 4, LONG, 'P'/256 


1690 


0944 


5245 


A 




.WORD 


'RE' , 'V'+EVEN,USE-3 




0945 


D620 


A 










0 946 


093E 


A 








1691 


0947 


036 7 


A 


PREV: 


.WORD 


DOVAR, BUFFS 




0948 


1DF0 


A 








1692 








» 






1693 


0949 


842B 


A 




HEAD 


ORD , 4 , LONG , '+' /256 


1694 


094A 


4255 


A 




.WORD 


'BU' , 'F' + EVEN,PREV-4 




094B 


C620 


A 










094C 


0943 


A 








1695 


094D 


0342 


A 


PBUF:: 


.WORD 


DOCOL,LIT,BLKSIZ/2+2 ,PLUS 




094E 


0103 


A 










094F 


0042 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





n q s n 


a 9 q 17 
u ^. y a 


A 
t\ 








1 A Q £ 

i o y o 


u y j i 


A 0 A A 

0 ZDD 


A 

A 


T.TA T5 A 

• WO RD 


T\TTT* TTVCTT" p ATT A T n -n n A VT 

DUPjLIMIT, EQUAL , ZBRAN 






u y o z 


A -a a 0 
U J y J 


A 

A 










W 7 _/ J 


n 4 5 7 

U H J / 


A 










u y j h 


n 1 0/, 


A 
A 








1 C CI "7 

l o y / 


o y 3 3 


A A A O 

0003 


A 


• WO RD 


PBUF1-. , DROP, FIRST 






A Q S A 

U7 JO 


a 9 n a 


A 

A 










n q ^ 7 


a ^ ft n. 


A 

A 








l b y o 


a A C Q 

o y D O 


A 0 A A 

0 ZDD 


A 

A 


TJ T} TT TS 11 • T.tA D A 

rBUr I ! • WU KJJ 


ATTT) DD TJT7 AT OTTTJ CtTMTC 

UUr , rKbv , Ai , o U is , b aril t> 






U" J" 


n Q A 7 


A 










A Q C A 

u y j a 


A O ATI 

U J Ujj 


A 

A 










a o £ u 

u y j u 


0 4 j U 


A 

A 










\j y D\j 


n 9 a a 


A 
A 








1 A Q Q 

i o y y 








» 






i inn 
1/00 


o y 5D 


0 /■ tr c 
OO JJ 


A 

A 


II 17 A A 
H L AD 


ORD , 6 , L 0NG , 'U' /256 




1 / U 1 


U y J Hi 




A 

A 




'PD' , 'AT' , ' E '+EVEN , PBUF- 


4 




u y D r 


4 1 -> 4 


A 

A 










0 960 


C5 2 0 


A 










a a c i 

o y o i 


A A /. A 

0 9 4 9 


A 








1702 


0962 


0342 


A 


UPDATE: .WORD 


D0C0L,PREV, AT, AT, LIT, 08 000 




0 96 3 


0947 


A 










0964 


rt O All 

0 30B 


A 










0 965 


030B 


A 










0 966 


0103 


A 










A O £ "7 

0 9 5 / 


O A A A 
O 000 


A 








1 703 


A C\ C O 

0 9 6 o 


A O / C 

0 2 46 


A 

A 


• WO RD 


OR, PRE V , AT, STORE , SEMIS 






0 969 


09 4 7 


A 










A Q A A 


U J U D 


A 
A 










a a c t> 
0 96B 


A O 1 A 

0 3 ID 


A 

A 










096C 


g\ <f\ f k 

026A 


A 








i 7 n a 








> 






1 T A C 

17 05 


0 9 6D 


OA/ C 

8D4 5 


A 


ut? Art 

HEAD 


ORD, 13, LONG, ' E ' / 25 6 




17 06 


096E 


4D5 0 


A 


• WORD 


'MP' , 'TY' , '-B' , 'UF' 






A Q C T? 

Uj Or 


j h d y 


A 
A 










A A "7 A 

o y 7 o 


OA/ 0 

2D4 Z 


A 

A 










0 9 71 


5546 


A 








17 0 7 


A Q 7 9 




A 

A 


ua pr» 


'FE' , 'RS'+ODD, UPDATE- 5 






A A "7 O 

0 9 7 3 


C O A O 

5 ZD 3 


A 

A 










0 9 74 


0 9 5D 


A 








1 7/10 

1 / U o 


u y / j 


A 0. /, O 


A 

A 


MiDUr ! • WU KL) 


DOCOL, FIRST, LIMIT 






A A 1 C 

0 9 7 6 


A O O r» 

0 3oD 


A 

A 










0 9 7 7 


0393 


A 








i inn 

i / oy 


A O "7 Q 

0 9 / 0 


0 zC 9 


A 

A 


T J A T> A 

• WUKD 


OVER, SUB , ERASE, SEMIS 






A A "7 A 

0 9 7 9 


A /. C A 

0 4 j U 


A 

A 










A n "7 A 

0 9 7A 


A C C O 

0 6 6 0 


A 










U / O 


n 9 A a 


A 








I / 1 u 








5 






1711 


09 7C 


8 344 


A 


HEAD 


ORD, 3,LONG,'D'/256 




1712 


097D 


52B1 


A 


.WORD 


'Rl '+0DD,MTBUF-8 






097E 


096D 


A 








1713 


097F 


0342 


A 


DRONE: .WORD 


DOCOL, ZERO, OFFSET, STORE, 


SEMIS 




0980 


0376 


A 










0981 


03F3 


A 










0982 


031D 


A 










0983 


026A 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1714 
1715 
1716 

1717 



1718 



1719 
1720 
1 721 
1 722 
17 23 
L 724 
I 725 
1726 

I 727 
1 728 
1729 
1730 



1 731 



0984 
0985 
0986 
0987 
0988 

0989 
098A 
098B 
098C 



8 34 4 
52B2 
097C 
0342 
0103 
07D0 
03F3 
031D 
026A 



1 732 
1733 

1 734 
1 735 



1736 



1 737 



1 738 



098D 
098E 
098F 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
099A 
099B 
099C 
099D 
099E 
099F 
09A0 
09A1 
09A2 
09A3 
09A4 
09A5 
09A6 
09A7 
09A8 

09A9 
09AA 
09AB 
0 9AC 
0 9AD 
09AE 
09AF 



8642 
5546 
4645 
D220 
0984 
0342 
0941 
030B 
02DD 
027B 
094D 
0124 
FFFE 
0941 
031D 
0289 
030B 
0297 
0124 
000A 
0289 
042B 
0289 
030B 
0103 
7FFF 
023F 
0376 
0A63 
0289 
031D 
0289 
0947 
031D 
0283 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



HEAD ORD, 3, LONG, 'D' /256 

. WORD 'R2'+ODD,DRONE-3 

DRTWO: . WORD DOCOL , L I T , 2 000 



.WORD OFFSET, STORE, SEMIS 



*************************************************** 

* BUFFER * 

******************************************* *** ***** 

: BUFFER USE @ DUP >R BEGIN 4-BUF UNTIL 
USE ! R @ 0< IF R 1+ R @ 7FFF 

AND 0 R/W END IF 

R ! R PREV I R> 1+ ; 



HEAD ORD, 6, LONG, ' B ' / 25 6 

.WORD ' UF ' , ' FE ' , 'R'+EVEN , DRTWO -3 



BUFFER: .WORD DOCOL , USE , AT , DUP , TOR 

BUFFI: .WORD PBUF , ZBRAN 

.WORD BUFF1-. , USE, STORE 

.WORD R, AT, ZLESS, ZBRAN 

.WORD BUFF2-. ,R,ONEP,R,AT 

.WORD LIT, 07FFF, AND, ZERO, RW 



BUFF2: .WORD R , S TORE , R , PREV , S TORE 



.WORD FROMR,ONEP , SEMIS 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



09B0 042B A 
09B1 026A A 



1 739 
1 740 
L74L 
1 742 
1743 
1744 
1 745 
1 746 
1747 
1748 
1 749 
1750 
1 751 
1 752 
1 753 



1 754 



1 755 



1756 



1757 
1 758 



1 759 



1 760 



1 761 



1 762 



09B2 
09B3 
09B4 
09B5 
09B6 
09B7 
09B8 
09B9 
09BA 
09BB 
0 9BC 
09BD 
09BE 
09BF 
09C0 
09C1 
09C2 
09C3 
09C4 
09C5 
09C6 

09C7 
09C8 

09C9 
09CA 
09CB 
09CC 
0 9CD 
09CE 
09CF 
09D0 
0 9D1 
09D2 
09D3 
09D4 
09D5 
09D6 
09D7 
0 9D8 
0 9D9 



8542 
4C4F 
43CB 
098D 
0342 
03F3 
030B 
029F 
027B 
0947 
030B 
02DD 
030B 
0289 
0450 
02DD 
029F 
0124 
001A 
094D 
028F 

0124 
000A 

02D0 
0289 
0992 A 
02DD A 
0289 
037A 
0A63 
037A 
0450 
02DD 
030B 
0289 A 
0450 A 
02DD A 
029F A 
028F A 
0124 A 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 

A 
A 
A 
A 



A 
A 
A 
A 
A 
A 
A 



*************************************************** 
* BLOCK. * 

*************************************************** 

: BLOCK OFFSET @ + >R 

PREV @ DUP @ R - DUP + 

IF BEGIN +BUF 0= 

IF DROP R BUFFER 

DUP R 1 R/W 1 - END IF 

DUP @ R - DUP + 0= UNTIL 

DUP PREV I END IF R> DROP 1+ ; 

HEAD ORD,5,LONG, 'B'/256 

.WORD 'LO' , 'CK'+ODD,BUFFER-5 



BLOCK: .WORD DOCOL , OFFS ET , AT , PLUS , TOR 



.WORD PREV, AT, DUP, AT, R 



.WORD SUB , DUP, PLUS, ZBRAN 



.WORD BL OCK 3- . 
BLOCK 1 : .WORD PBUF , ZEQU , ZBRAN 



.WORD BLOCK2-. , DROP, R, BUFFER 



.WORD DUP, R, ONE, RW, ONE, SUB 



BLOCK 2 : .WORD DUP , AT , R , SUB , DUP 



.WORD PLUS , ZEQU, ZBRAN 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1763 



1 764 



1765 
1 766 
1767 
1 768 
1769 
1770 
1771 
1772 



09DA 


FFEB 


A 


09DB 


02DD 


A 


09DC 


0947 


A 


0 9DD 


031D 


A 


09DE 


0283 


A 


09DF 


02D0 


A 


09E0 


042B 


A 


09E1 


026A 


A 



. WORD BLOCK 1-. , DUP , PREV , S TORE 



BLOCK 3 : . WORD FROMR , DROP , ONEP , S EMI S 



*************************************************** 

* TEXT OUTPUT FORMATTING * 

*************************************************** 

: (LINE) >R 40 B/BUF */MOD R> B/SCR * 
+ BLOCK BYTE + 40 : 



1773 


09E2 


8628 


A 




HEAD 


1774 


09E3 


4C49 


A 




.WORD 




09E4 


4E45 


A 








09E5 


A920 


A 








09E6 


09B2 


A 






1775 


09E7 


0342 


A 


PLINE: 


.WORD 




09E8 


027B 


A 








09E9 


0103 


A 








09EA 


0040 


A 








09EB 


0399 


A 








09EC 


0921 


A 






1776 


09ED 


0283 


A 




.WORD 




09EE 


039F 


A 








09EF 


0901 


A 








0 9F0 


029F 


A 








09F1 


09B6 


A 






1777 


09F2 


02FD 


A 




.WORD 




09F3 


029F 


A 








09F4 


0103 


A 








09F5 


0040 


A 








09F6 


026A 


A 






1 778 












1779 


09F7 


852E 


A 




HEAD 


1 780 


09F8 


4C49 


A 




.WORD 




09F9 


4EC5 


A 








09FA 


09E2 


A 






1 781 


09FB 


0342 


A 


DLINE: 


.WORD 




09FC 


09E7 


A 








0 9FD 


05B0 


A 








09FE 


0599 


A 








09FF 


026A 


A 






1782 








• 

9 




1783 


0A00 


874D 


A 




HEAD 


1784 


0A01 


4553 


A 




.WORD 




0A02 


5 3 4 1: 


A 








0A03 


47C5 


A 








0A04 


09F 7 


A 






1785 


0A05 


0342 


A 


MESS : 


.WORD 




0A06 


03C5 


A 







' T T ' 'vr-n* * \ * 



.WORD FROMR, B SCR, STAR, PLUS .BLOCK 



.WORD BYTE, PLUS,LIT, 64, SEMIS 



' T T ' ' XT T7 ' 



'ES' , 'SA' , ' GE '+ODD , DLUE-4 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0A07 


030B 


A 










0A08 


0124 


A 








1 786 


0A09 


OOOE 


A 




. WORD 


MESS2-. , DDUP , Z BRAN 




OAOA 


0 4 7D 


A 










OAOB 


0124 


A 








1787 


OAOC 


0009 


A 




.WORD 


MESS1-. ,LIT, 4 , OFFSET, AT 




OAOD 


0103 


A 










OAOE 


0004 


A 










OAOF 


03F3 


A 










0A10 


030B 


A 








1 788 


0A1 1 


039F 


A 




.WORD 


B SCR, SLASH, SUB ,DLINE 




0A12 


0911 


A 










0A13 


0450 


A 










0A14 


09FB 


A 








1789 


0A15 


01 IB 


A 


MESS1 : 


.WORD 


BRAN 


1 790 


0A16 


0007 


A 




.WORD 


MESS3-. 


1 791 


0A1 7 


05CA 


A 


MESS2 : 


.WORD 


PDOTQ 


1792 


0A18 


064D 


A 




STRING 


6,'M'/256 


1793 


0A19 


5347 


A 




.ASCII 


'SG , ' 




0A1A 


2023 


A 










OA IB 


2020 


A 








1794 


0A1C 


0BD5 


A 




.WORD 


DOT 


1795 


0A1D 


026A 


A 


MESS3: 


.WORD 


SEMIS 



1796 
1797 
1 798 
1 799 
1800 
1801 
1802 



1803 



************************************************** 

* LOAD, — > * 

*************************************************** 



1804 



1805 



1806 



1807 



0A1E 


844C 


A 


HEAD 


OA IF 


4F41 


A 


.WORD 


0A20 


C420 


A 




0A21 


OAOO 


A 




0A22 


0342 


A LOAD: 


.WORD 


0A23 


03DD 


A 




0A24 


030B 


A 




0A25 


027B 


A 




0A26 


03E2 


A 




0A27 


030B 


A 




0A28 


027B 


A 




0A29 


0376 


A 


.WORD 


0A2A 


03E2 


A 




0A2B 


031D 


A 




0A2C 


039F 


A 




0A2D 


0901 


A 




0A2E 


03DD 


A 




0A2F 


031D 


A 




0A3 0 


07F1 


A 


.WORD 


0A31 


0283 


A 




0A32 


03E2 


A 




0A33 


031D 


A 




0A34 


0283 


A 


.WORD 


0A35 


03DD 


A 




0A36 


031D 


A 




0A37 


026A 


A 





* r\ A * ' TV * 



.WORD ZERO, IN, STORE, B SCR, STAR, BLK, STORE 



WORD INTER, FROMR, IN, STORE 



WORD FROMR, BLK, STORE, SEMIS 



0A38 - 0A58 



ARROW 


0A3B 


A 


PEMIT 


0A49 


A 


PKEY 


0A4D 


A 


PQTERM 


0A4F 


A 


PCR 


OA53 


A 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 

DICTIONARY 



1850 0A59 035C A 
0A5A 3FC0 A 

1851 
1852 
1853 



1854 

1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 

1864 



1865 



0A5B 824C A 
0A5C CF20 A 
0A5D 0A56 A 
0A5E 035C A 
0A5F 2000 A 



HI: .WORD DOCON , H IBLK 



HEAD ORD , 2 , LONG , ' L ' / 25 6 

. WORD '0'+EVEN,HI-3 

LO: .WORD DOCON, LOBLK 



R/W >R DUP 0< 6 ? ERROR 
B/BUF CELL * LO + 
DUP HI > 6 ? ERROR 
R> IF SWAP END IF 
B/BUF CELL MOVE ; 



( BLOCK, < 0 ? ) 

( FWA OF BLOCK ) 

( TOO HIGH ? ) 

( TO OR FROM ? ) 

( TRANSFER DATA ) 



1866 



1867 



1868 
1869 



1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 



ft a c t\ 
OAo U 


O 0 c o 


A 

A 




T J T? A n 

H h AD 


ORD, j, LONG, R /ZDO 


ft A C 1 

OA6 1 


2 FD 7 


A 




• WO RD 


/ W +ODD , L O— j 


0A6 2 


0A5B 


A 








UAO J 


U J H Z 


A 


kw : 


t.t r\ n r\ 


DOLOL, lORjDUr ,ZLtbb 


n a (\ a 

U AO H 


n o 7 n 


A 

A 








OAo j 


0 Zuu 


A 

A 








n a a a 

UAOO 


U £. J / 


A 

A 








ft A tL. 1 

0A6 7 


0103 


A 




• WO RD 


L IT , 6 , Q ERROR , BBUF,CELL 


0A68 


0006 


A 








0A69 


04D6 


A 








0A6A 


0399 


A 








0A6B 


0305 


A 








0A6C 


0901 


A 




.WORD 


STAR, LO, PLUS , DUP, HI, GREAT 


0A6D 


0A5E 


A 








0A6E 


029F 


A 








0A6F 


02DD 


A 








0A70 


0A5 9 


A 








OA 71 


0463 


A 








0A72 


0103 


A 




.WORD 


LIT,6,QERROR, FROMR , ZBRAN 


0A73 


0006 


A 








0A74 


04D6 


A 








OA 7 5 


0283 


A 








OA76 


0124 


A 








0A77 


0002 


A 




.WORD 


RW1-. ,SWAP 


0A78 


02D5 


A 








0A79 


0399 


A 


RW1 : 


.WORD 


BBUF, CELL, MOVE, SEMIS 


0A7A 


0305 


A 








0A7B 


0201 


A 








0A7C 


026A 


A 









0A7D 


C1A7 


A 


HEAD 


0A7E 


0A60 


A 


.WORD 


0A7F 


0342 


A TICK: 


.WORD 


0A80 


0727 


A 




0A81 


028F 


A 




0A82 


0376 


A 





*************************************************** 

* ' , FORGET * 

*************************************************** 



IMM, 1 , SHORT, ' ' ' ' /256 
RW-3 

DOCOL,DFIND,ZEQU,ZERO 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1878 



1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 



1901 



0A8 3 


04D6 


A 


.WORD 


0A84 


02D0 


A 




0A85 


07BD 


A 




0A86 


026A 


A 





.WORD QERROR, DROP, LITER, SEMIS 



1902 



1903 



1 904 



1905 



1 906 



0A87 


8646 


A 


0A88 


4F52 


A 


0A89 


4745 


A 


0A8A 


D420 


A 


0A8B 


0A7D 


A 


0A8C 


0342 


A 


0A8D 


0401 


A 


0A8E 


030B 


A 


0A8F 


03FA 


A 


0A90 


030B 


A 


0A91 


0450 


A 


0A92 


0103 


A 


0A93 


0018 


A 


0A94 


04D6 


A 


0A95 


0A7F 


A 


0A96 


04B1 


A 


0A9 7 


02DD 


A 


0A98 


03CB 


A 


0A99 


030B 


A 


0A9A 


045D 


A 


0A9B 


0103 


A 


0A9C 


0015 


A 


0A9D 


04D6 


A 


0A9E 


027B 


A 


0A9F 


03D8 


A 


OAAO 


030B 


A 


0AA1 


0289 


A 


0AA2 


02C9 


A 


0AA3 


045D 


A 


0AA4 


0124 


A 


0AA5 


0009 


A 



************************************* ( ( ( ( ( ( ( ( (***** 

: FORGET CURRENT @ CONTEXT @ ( IS VOCAB ) 

- 18 ? ERROR ( NON-AMBIGUOUS ? ) 

[COMPILE] ' NFA ( HD OF WORD TO FORGET ) 

DUP FENCE @ < 15 ? ERROR ( CMP FENCE ) 
>R VOC-LINK @ ( START WITH LATEST VOCAB) 

BEGIN R OVER < ( FORGET ENTIRE VOCAB? ) 
WHILE [COMPILE] FORTH DEFINITIONS 

@ DUP VOC-LINK ! ( UNLINK VOCAB ) 



REPEAT 
BEGIN 



DUP 2 - ( START AT PHANTOM NAME ) 

BEGIN PFA LFA @ ( HEAD OF WORD ) 

DUP R < ( FORGETTING IT ? ) 

UNTIL 

OVER 1 - ! ( NEW HEAD OF VOCAB ) 

@ -DUP 0= ( END OF VOCAB LIST ? ) 



UNTIL 
R> DP 



( NEW DICTIONARY POINTER ) 



HEAD ORD , 6 , LONG , ' F ' / 25 6 

.WORD 'OR' , 'GE' , 'T'+EVEN,TICK-2 



FORGET: .WORD DOCOL , CURR , AT , CONT , AT 



.WORD SUB , LIT, 0018 , QERROR 



.WORD TICK, NFA, DUP, FENCE, AT, LESS 



.WORD LIT, 00 15 , QERROR, TOR, VOCL , AT 



FORG 1 .WORD R, OVER, LESS , ZBRAN 



.WORD FORG2-. , FORTH, DEFIN 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1907 



1908 
1909 



1910 



1911 



1912 



1913 



1914 
1915 

1916 
1917 

L 9 I 8 
1919 
1920 



1921 



0AA6 
0AA7 
0AA8 
0AA9 
OAAA 
OAAB 
OAAC 
OAAD 
OAAE 
OAAF 
OABO 
0AB1 
0AB2 
0AB3 
0AB4 
0AB5 
0AB6 
0AB7 
0AB8 
0AB9 
OABA 
OABB 
OABC 
OABD 
OABE 
OABF 
OACO 
0AC1 
0AC2 
0AC3 
0AC4 
0AC5 



083F 
084B 
030B 
02DD 
03D8 
031D 
011B 
FFF4 A 
02DD A 
037E 
0450 
04C0 
04A3 
030B 
02DD 
0289 
045D 
0124 
FFF9 
02C9 
037A 
0450 
031D 
030B 
047D 
028F 
0124 
FFED 
0283 
03D0 
031D 
026A 



1922 
1923 
1924 



1925 



0AC6 
0AC7 
0AC8 
0AC9 
OACA 
OACB 
OACC 
OACD 
OACE 

OACF 
OADO 
0AD1 
0AD2 
0AD3 
0AD4 

0AD5 
0AD6 



8442 
4143 
CB20 
0A87 
0342 
043A 
0450 
0448 
026A 



C542 A 
4547 A 
49CE 
0AC6 
0342 
04E3 
043A 
037A 



• WORD AT, DUP,VOCL, STORE, BRAN 



• WORD F0RG1-. 
F0RG2: .WORD DUP,TWO,SUB 

F0RG3: .WORD PFA , LFA , AT ,DUP,R,LESS, Z BRAN 



.WORD F0RG3-. , OVER, ONE, SUB , STORE 



.WORD AT,DDUP,ZEQU, ZBRAN 



.WORD F0RG2-. , FROMR , DP , S TORE , S EMI S 



.******************************************* *** ***** 

;* CO NDITIONAL COMPILER, PER SHIRA * 

**************************************************** 



HEAD ORD , 4 , LONG , ' B ' / 2 5 6 

.WORD 'AC , 'K'+EVEN, FORGET-5 



BACK: .WORD DOCOL , HERE , SUB , COMMA , S EMI S 



HEAD IMM,5,L0NG, 'B'/256 

.WORD ' EG ' , ' IN '+ODD , BACK- 4 



BEGIN: .WORD DOCOL , QCOMP , HERE , ONE , S EMI S 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0AD7 


026A 


A 








1926 














1927 


0AD8 


C545 


A 




HEAD 


IMM,5,LONG, 'E'/256 


1 928 


0AD9 


4E44 


A 




• WORD 


' ND ' , ' IF'+ODD , BEG IN- 4 




OADA 


49C6 


A 










OADB 


OACF 


A 


i 






19 2 9 


OADC 


a i i. o 
0 3 4 2 


A 


V XT T\ T T3 « 

E N D I F I' 


T.TA Tl T\ 

• WO RD 


T\ A /"< A T f\P AMD rp t 7 r\ A T> A T T> O UUD E 1 

DOCOL, QLOMr, IWUjQrAlKbjrltiKt, 




OADD 


0 4E 3 


A 










OADE 


0 3 7E 


A 










OADF 


04FB 


A 










0AE0 


043A 


A 








1 930 


OAE 1 


0 2C 9 


A 




• WORD 


f\ TT n T\ n TT T\ O T T A T*» fl m f\ T\ Tl /"* XI 'V X T f» 

OVER, SUB , SWAP , STORE, SEMIS 




0AE2 


0450 


A 










0AE3 


02D5 


A 










0AE4 


031D 


A 










0AE5 


026A 


A 








1 931 








• 

9 






1932 


0AE6 


C454 


A 




HEAD 


IMM, 4, LONG, 'T'/256 


19 33 


OAE 7 


4845 


A 




• WORD 


HE , N +EVEN , ENDIF-4 




0AE8 


CE2 0 


A 










0AE9 


0AD8 


A 








19 34 


OAEA 


0342 


A 


m TT Tt \T 

THEN : 


. WORD 


D0C0L,ENDIF,S EMI S 




OAEB 


OADC 


A 










OAEC 


0 26A 


A 








19 35 








> 






1936 


OAED 


C2 44 


A 




HEAD 


IMM , 2 ,L0NG , ' D ' / 2 5 6 


1937 


OAEE 


CF2 0 


A 




. WORD 


'0'+EVEN,THEN-4 




OAEF 


0AE6 


A 








i o o o 


OAFU 


A O / O 

0 3 4 2 


A 


DO : 


tta *n r\ 

• WORD 


DOCOL , COMP IL , XDO 




A A T? 1 

U A v 1 


U J Z 1 


A 

A 










a A T? o 
U Ar Z 


nice 

Ul jj 


A 

A 








l y j y 


A A TP T 

UAr J 


A /. *3 A 
U H 3A 


A 

A 




• WO RD 


TT T? T> XT' T IT 71 T? T7 C UUT C 

HbRti, lHREE,bEMIb 




A A T? /■ 


U Jui 


A 

A 










n» pi: 
UAr D 


A 9 A A 
U Z 0 A 


A 
A 








i y 4 u 








1 






1 O/, 1 

i y h i 


a A 17 A 

U A r o 




A 

A 




TJ IT A n 


TMM /■ TAMP ' T ' / O ^ A 

IJMrl , H , Li UIN(j , Li /ZjD 


i n /. o 
19 4 2 


A A T» "7 

OAF / 


4F4F 


A 

A 




Tt A *n TH 

• WO RD 


00 , P +EVEN,DO-3 




0AF8 


DO 2 0 


A 










0AF9 


OAED 


A 








19 4 3 


OAF A 


0 34 2 


A 


LOOP : 


. WORD 


DOCOL, THREE, Q PAIRS , COMPIL 




OAFB 


0382 


A 










OAFC 


04FB 


A 










OAFD 


05 21 


A 








1944 


OAFE 


012F 


A 




.WORD 


XLOOP, BACK, SEMIS 




OAFF 


OACA 


A 










0B00 


026A 


A 








1945 








» 






1946 


0B0 1 


C52B 


A 




HEAD 


IMM, 5 , LONG, '+' /256 


1947 


0B02 


4C4F 


A 




.WORD 


'LO' , '0P'+0DD,L00P-4 




0B03 


4FD0 


A 










0B04 


0AF6 


A 








1948 


0B05 


0342 


A 


PLOOP: 


.WORD 


DOCOL, THREE, QPAI RS , COMPIL 




0B06 


0382 


A 










0B07 


04FB 


A 










0B08 


0521 


A 









PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



1949 


0B09 


0140 


A 




.WORD 


XPLOOP, BACK, SEMIS 




OBOA 


OACA 


A 










OBOB 


026A 


A 








1950 














1951 


OBOC 


C555 


A 




HEAD 


IMM , 5 , LONG , 'U' /256 


1952 


OBOD 


4E54 


A 




.WORD 


'NT' , ' IL'+0DD,PL00P-4 




OBOE 


49CC 


A 










OBOF 


OBO 1 


A 








1953 


0B10 


0342 


A 


UNTIL : 


.WORD 


DOCOL,ONE,QPAIRS, COMPIL 




OBI 1 


037A 


A 










OBI 2 


04FB 


A 










0B13 


0521 


A 








1954 


0B14 


0124 


A 




.WORD 


ZBRAN, BACK, SEMIS 




0B15 


OACA 


A 










0B16 


026A 


A 








1955 








J 






1956 


OBI 7 


C345 


A 




HEAD 


IMM, 3 , LONG, 'E'/256 


1957 


0B18 


4EC4 


A 




.WORD 


'ND'+0DD,UNTIL-4 




0B19 


OBOC 


A 








1958 


0B1A 


0342 


A 


END: 


.WORD 


DOCOL, UNTIL, SEMIS 




0B1B 


0B10 


A 










0B1C 


026A 


A 








1959 








» 






1960 


0B1D 


C541 


A 




HEAD 


IMM, 5 , LONG, ' A ' / 2 5 6 


1961 


0B1E 


4741 


A 




.WORD 


'GA' , ' IN'+0DD,END-3 




0B1F 


49CE 


A 










0B20 


OBI 7 


A 








1962 


0B21 


0342 


A 


AGAIN: 


.WORD 


DOCOL, ONE, QPAIRS, COMPIL 




0B22 


037A 


A 










0B23 


04FB 


A 










0B24 


0521 


A 








1963 


0B25 


0 1 IB 


A 




.WORD 


BRAN, BACK, SEMIS 




0B26 


OACA 


A 










0B27 


026A 


A 








1964 








• 
> 






1965 


0B28 


C652 


A 




HEAD 


IM1,6,L ONG, 'R'/256 


1966 


0B29 


4550 


A 




.WORD 


'EP' , 'EA' , 'T'+EVEN, AGAIN- 4 




0B2A 


4541 


A 










0B2B 


D420 


A 










0B2C 


0B1D 


A 








1967 


0B2D 


0342 


A 


REPEAT : 


.WORD 


DOCOL , TOR, TOR, AGAIN, FROMR 




0B2E 


027B 


A 










0B2F 


027B 


A 










0B30 


0B2 1 


A 










0B3 1 


0283 


A 








1968 


0B32 


0283 


A 




.WORD 


FROMR, TWO, SUB , END IF, SEMIS 




OB 3 3 


037E 


A 










0B34 


0450 


A 










0B35 


OADC 


A 










0B36 


026A 


A 








1969 








5 






1970 


0B37 


C249 


A 




HEAD 


IMM, 2, LONG, M'/256 


1971 


0B38 


C620 


A 




.WORD 


'F'+EVEN, REP EAT- 5 




0B39 


0B28 


A 








1972 


0B3A 


0342 


A 


IF : 


.WORD 


DOCOL, COMPIL, ZBRAN, HERE 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0B3B 


0521 


A 








0B3C 


0124 


A 








0B3D 


043A 


A 






1973 


0B3E 


0376 


A 


.WORD 


ZERO, COMMA, TWO , SEMIS 




0B3F 


0448 


A 








0B40 


037E 


A 








0B41 


026A 


A 






1974 








» 




1975 


0B42 


C445 


A 


HEAD 


IMM,4,LONG, 'E'/256 


1976 


0B43 


4C53 


A 


.WORD 


'LS' , 'E'+EVEN, IF-3 




0B44 


C520 


A 








0B45 


0B37 


A 






1977 


0B46 


0342 


A 


ELSE: .WORD 


DOCOL,TWO ,QPAIRS,COMPIL 




0B47 


037E 


A 








0B48 


04FB 


A 








0B49 


0521 


A 






19 78 


0B4A 


0 1 IB 


A 


. WORD 


BRAN , HERE , ZERO , COMMA 




0B4B 


043A 


A 








0B4C 


0376 


A 








0B4D 


0448 


A 






1979 


0B4E 


02D5 


A 


.WORD 


SWAP , TWO , END IF , TWO, SEMIS 




0B4F 


037E 


A 








0B50 


OADC 


A 








0B51 


037E 


A 








0B52 


026A 


A 






1980 








> 




1981 


0B5 3 


C557 


A 


HEAD 


IMM ,5, LONG, ' W' / 2 5 6 


1982 


0B54 


4849 


A 


.WORD 


'HI' , 'LE'+ODD,ELSE-4 




0B55 


4CC5 


A 








0B56 


0B42 


A 






1983 


0B57 


0342 


A 


WHILE: .WORD 


DOCOL, IF, TWOP, SEMIS 




0B58 


0B3A 


A 








0B59 


0432 


A 








0B5A 


026A 


A 







1984 
1985 
1986 
1987 
L.9 8 8 
1989 
1990 



1991 



1992 

1993 
1994 



0B5B 
0B5C 
0B5D 
0B5E 
0B5F 
0B60 
0B6 1 
0B62 
0B63 

0B64 
0B65 
0B66 

0B67 
0B68 
0B69 
0B6A 



A 
A 
A 
A 
A 
A 
A 
A 



8653 
5041 
4345 
D320 
0B53 
0342 
0376 
08D7 
047D A 
0124 A 
0006 
0376 
0155 
0475 
012F 
FFFE 



*************************************************** 

* NUMERIC PRIMITIVES * 

*************************************************** 

head: ord, 6, long; ' S' /256 

.WORD 'PA' , 'CE' , 'S'+EVEN , WHILE- 4 



SPACES: .WORD DOCOL , ZERO , MAX ,DDUP , ZBRAN 

.WORD SPACE2-. ,ZERO,XDO 

SPACE1: .WORD SPACE, XLOOP 

.WORD SPACE 1 - . 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



19 95 


0B6B 


026A 


A 


SPACE2 


: • WORD 


SEMIS 


1996 
















1997 












<, PAD 


BYTE HLD ! ; 


1998 














• 


1999 


0B6C 


823C 


A 






HEAD 


ORD,2,LONG, '<'/256 


2000 


0B6D 


A320 


A 






• WORD 


' , '+EVEN,SPACES-5 




0B6E 


0B5B 


A 










2001 


0B6F 


0342 


A 


BDIGS : 


• WORD 


DOCOL, PAD, BYTE, HLD, STORE, SEMIS 




0B70 


0686 


A 












0B71 


02FD 


A 












0B72 


0426 


A 












0B73 


031D 


A 












0B74 


026A 


A 










2002 
















2003 










<> 


,> DROP 


DROP HLD @ 


2004 












PAD 


BYTE OVER + ; 


2 005 
















2006 


0B75 


8223 


A 






HEAD 


ORD, 2, LONG, * , ' /256 


2 007 


OB 7 6 


BE2 0 


A 






• WORD 


> +EVEN , BD IGS-3 




0B7 7 


0B6C 


A 










2008 


0B78 


0342 


A 


EDIGS : 


.WORD 


DOCOL, DROP, DROP, HLD, AT 




0B79 


02D0 


A 












0B7A 


02D0 


A 








, 




0B7B 


0426 


A 












0B7C 


030B 


A 










2009 


0B7D 


0686 


A 






. WO RD 


PAD, B YTE, 0 VE R, S UB , SEMIS 




0B7E 


0 2FD 


A 












0B7F 


02C9 


A 












0B80 


0450 


A 












0B81 


026A 


A 










2010 
















2011 


0B82 


8453 


A 






HEAD 


ORD, 4, LONG, 'S'/256 , 


2012 


0B83 


4947 


A 






.WORD 


' IG' , 'N'+EVEN, ED IGS-3 




0B84 


CE20 


A 












0B85 


0B75 


A 










2013 


0B86 


0342 


A 


SIGN: 


.WORD 


DOCOL, ROT, ZLESS,Z BRAN 




0B87 


046A 


A 












0B88 


0297 


A 












0B89 


0124 


A 










2 014 


0B8A 


0004 


A 






.WORD 


SIGN1-. , LIT, '-'/256, HOLD 




0B8B 


0103 


A 












0B8C 


002D 


A 












0B8D 


067A 


A 










2015 


0B8E 


026A 


A 


SIGN1 : 


.WORD 


SEMIS 


2016 
















2017 


0B8F 


81A3 


A 






HEAD 


ORD, 1 , SHORT, ' , '/256 


2018 


0B90 


0B82 


A 






.WORD 


SIGN-4 


2019 


0B91 


0342 


A 


DIG: 


.WORD 


DOCOL, BASE, AT, MSMOD, ROT 




0B92 


040D 


A 












0B93 


030B 


A 












0B94 


0933 


A 












0B95 


046A 


A 










2020 


0B96 


0103 


A 






.WORD 


LIT, 9 , OVER, LESS ,Z BRAN 




0B97 


0009 


A 












0B98 


02C9 


A 











PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0B 9 9 


04 5D 


A 




0B9A 


0124 


A 


9 0 9 1 


u d y u 


n n n /■ 

UUU f 


A 

A 




0B9C 


010 3 


A 




0B9D 


000 7 


A 




0 B 9 E 


0 1 9 F 


A 


2 022 


0B9F 


0103 


A 




0BA0 


0030 


A 




0BA1 


0 2 9F 


A 




0BA2 


067A 


A 




0BA3 


026A 


A 


n n o i 
2 0 2 3 








2024 


0BA4 


8223 


A 


2025 


0BA5 


D320 


A 




0BA6 


0B8F 


A 


2 026 


0BA7 


0342 


A 


2027 


0BA8 


0B91 


A 




0BA9 


02C9 


A 




OBAA 


02C9 


A 




OB AB 


0246 


A 




OBAC 


028F 


A 




OB AD 


0124 


A 


2028 


OBAE 


FFFA 


A 




OB AF 


026A 


A 


2 029 








2030 








2031 








2032 








2033 








2 034 


OBBO 


8344 


A 


2 035 


OBB 1 


2ED2 


A 




0BB2 


0BA4 


A 


o ^ o c 

2 0 3 6 


0BB3 


0 34 2 


A 




0BB4 


0 2 7B 


A 




0BB5 


02D5 


A 




0BB6 


02C9 


A 




0BB7 


08C8 


A 


2037 


0BB8 


0B6F 


A 




0BB9 


0BA7 


A 




OBB A 


0B86 


A 




OBB B 


0B78 


A 




OBBC 


0283 


A 


2038 


OB BD 


02C9 


A 




OBBE 


0450 


A 




OBBF 


0B60 


A 




OBCO 


0599 


A 




0BC1 


026A 


A 


2039 








2 040 


0BC2 


822E 


A 


2041 


0BC3 


D220 


A 




0BC4 


OBBO 


A 


2042 


0BC5 


0342 


A 




0BC6 


027B 


A 




0BC7 


08A5 


A 




0BC8 


0283 


A 



.WORD DIG1-. ,LIT, 7 ,PLUS 



DIG1: .WORD L IT , 00 30 , PLUS , HOLD , S EMI S 



DIGS : 
DIGS1 



HEAD ORD, 2 ,LONG, ' , ' /256 

.WORD 'S'+EVEN,DIG-2 

.WORD DOCOL 

.WORD DIG, OVER, OVER, OR, ZEQU, ZBRAN 



.WORD DIGS 1-. , SEMIS 



************************************************* 

* OUTPUT OPERATORS * 

*************************************************** 



HEAD 
.WORD 



ORD , 3 ,LONG , ' D ' / 256 
' R'+ODD,DIGS-3 



DDOTR: .WORD DOCOL , TOR , SWAP , OVER , DABS 



.WORD BDIGS , DIGS , SIGN, ED IGS,FROMR 



.WORD OVER, SUB , SPACES, TYPE, SEMIS 



DOTR: 



HEAD ORD , 2 ,LONG , ' . ' /256 

.WORD 'R'+EVEN,DDOTR-3 

.WORD DOCOL, TO R, S TOD, FROMR, DDOTR, SEMIS 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0BC9 


0BB3 


A 










OB C A 


026A 


A 








9 n /i 

Z U H J 








» 






o n /■ /• 

Z U 4- 


UDlO 


ft 9 A A 


A 




hf An 


ORn 9 T ONfJ 'D'/256 


Z U <4 3 


U V> Kj \j 


A F 9 n 
iv Cj z u 


A 






' . '+FVFN nftTR— 3 






finiT) 

UJ5 L. Z 


A 

A 








9 D A « 


U D V< Hi 


O ^ 4 9 
\j -3 h z, 


A 
r\ 


U \J \J X • 


. WORD 


DOCOL 7FR0 DDOTR SPACE SEMIS 




OBCF 


0376 












n Tin n 


n ti r ^ 


A 
/i 










0 Tin l 


04 7 S 


A 










0BD 2 


026A 


A 








2 04 7 








» 






? 0 48 


V7 Xj U -J 


8 1 A E 


A 




HEAD 


ORD, 1 , SHORT, ' . ' /256 


2 049 


0BD4 


0BCB 


A 




.WORD 


DDOT-3 


2050 


0BD5 


0342 


A 


DOT : 


. WORD 


DO COL , ST0D , DDOT , SEMI S 




0BD6 


08A5 


A 










0BD 7 


0BCE 


A 










\J JJ U \J 


0 2 6 A 


A 

n 








z, W _/ 1 








» 






2 0 5 2 


ORD 9 

\J XJ U J 


8 1 BF 


A 




HEAD 


ORD,l,SHORT,'?'/256 


Z. \J J J 


nun a 

U sj JL/ ri. 


OTin ^ 


A 




wn Rn 


noT— 9 


9 0 S A 

Z. \J J H 


\J L> LJ D 


0^4? 
\j j h z 


A 


y U Ij O # 


• WORD 


DOfOL AT DOT SEMIS 




o Rnr 


fi 1 OR 


A 
r i 










n Tin n 




A 
A 












n 9 A A 
U Z O A 


A 
A 








2055 








J 






2056 


0BDF 


8255 


A 




HEAD 


ORD , 2 , LONG, 'U' /256 


2057 


0BE0 


AE20 


A 




.WORD 


' . '+EVEN , QUES-2 




0BE1 


0BD9 


A 








2058 


0BE2 


0342 


A 


UDOT: 


.WORD 


D0C0L, ZERO, DDOT, SEMIS 




0BE3 


0376 


A 










0BE4 


0BCE 


A 










0BE5 


026A 


A 









2059 
2060 
2061 
2062 
2063 
2064 
2065 



2066 



*************************************************** 

* PROGRAM DOCUMENTATION * 

*************************************************** 



2067 
2068 



2069 



0BE6 


844C 


A 


HEAD 


0BE7 


4953 


A 


.WORD 


0BE8 


D420 


A 




0BE9 


0BDF 


A 




0B EA 


0342 


A LIST: 


.WORD 


0BEB 


01FC 


A 




0BEC 


02DD 


A 




0BED 


03EC 


A 




0BEE 


031D 


A 




0BEF 


05CA 


A 




0BF0 


0653 


A 


STRING 


0BF1 


4352 


A 


.ASCII 


0BF2 


2023 


A 




0BF3 


2020 


A 




0BF4 


0BD5 


A 


.WORD 


0BF5 


0103 


A 




0BF6 


0010 


A 





r t o ' ' rn * 



.WORD DOT, LIT, 16 , ZERO, XDO 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0BF7 


03 76 


A 








0 R Fft 




A 

A 






9 0 7 0 
zu/u 


0 P. 1? Q 
U xJ r y 


O 1 P P 


A 
A 


T TQT1 • UO R H 
LI oil • • WUK.U 


PP T 7FPO TWPPP PiPiOTP QPAPP 




0 B FA 


0161 


A 








0 R F R 


0 "\ 7 


A 
rl 








O P 17 P 

U Jt> r L. 


O ^ ft 9 


A 

A 








OBFD 


OBB 3 


A 








0 R F F 

W J) L III 


0 4 7 S 


A 






9 0 7 1 

Z U 1 X 


O R F F 


0 1 fi 1 


A 


- ufiRn 

• W\J IS.LJ 


T 9PP AT DT TNF YT OOP 

X y O Vj IV j n. 1 , XS Xj X li JL , ALUUi 




0C00 


0 3EC 


A 








0 r 0 1 

v/ vy v/ . A 


0 3 OR 


A 








OC 0 2 


0 9 FB 


A 








0C03 


0 1 2F 


A 






2 0 7 2 


0C0 a 

V/ v U *t 


FFF 5 

J. L J. — ' 


A 


. WORD 


Hull* ) OlV ^ O ulli u 




o r o s 


O 1 1? P 


A 








or o 6 

W w w w 


0 26A 

w a* w n 


A 






9 0 7 3 












9 O 7 /i 
Z U / 4 


a p a 7 
U L. U / 


Q ^ /■ Q 

o j ^ y 


A 
A 


TJ T7 A A 

rl £i AJJ 


npn C TATVTP ' T ' / 9 
U1\L/,_),LiU1NIj, i / ZjO 


9 0 7 S 

Z V / -J 


o r o ft 


AF A A 


A 




'Mn' ' FY'+finn T TftT— A 




u l u y 


/. ft 


A 

A 








O P O A 


O P 17 A 
U 13 £j O 


A 
A 






2 0 76 


OC OB 


0342 


A 


INDEX* .WORD 

Ju 1>1 J-/ XJ /k • 1 m V/ XV X/ 


DOCOL LIT 00OC EMIT 

xj \j vj v/ xj % xj <x> x % v/ vy 'v/ v_» • xj j,x x x 




0 P OP 


OIO^ 


A 








o p on 


O O O P 


A 
A 








OC OE 


0 1ED 


A 






2 0 7 7 


OCOF 


0 1 FC 


A 


. WORD 


CR ONEP SWAP XD0 

\ji XV j V/ ii Xj X * U M XI X y ill/ V/ 




0 C 1 0 


0 4 2R 


A 








OC 1 1 


0 2D5 


A 








0 P 1 9 


0 1 s s 


A 






9 0 7ft 
Z u / o 




0 1 17 P 


A 
A 


I. IN 17 & A X . •WUtv.U 


PP T 7FRO THPFF DDOTP ^PAPF 




OC 1 4 


0161 


A 








oris 


0 3 7 6 


A 








O P 1 A 


O ^ ft 9 
U J o Z 


A 
A 








0 P 1 7 


OR R ^ 

U D D J 


A 








U C 1 o 


a /. 7 £ 


A 

A 






2 0 7 9 


OC 1 9 


03 76 


A 


. WORD 


ZER0,I,DLINE, QTERM , ZBRAN 




O P 1 A 
U U 1 A 


O 1 A 1 
U x O I 


A 

A 








OC 1 B 


0 9 FB 


A 

A 








OC 1 C 


0 1F8 


A 








OC ID 


AIT/. 

0 1 z 4 


A 

A 






i a q a 


OC 1 E 


0 U 0 z 


A 

A 


. WO RD 


T VT A T? V O T T? A T7 T? 




OC 1 F 


0 2 7 3 


A 






Z U O 1 


A P 9 O 
U L. z U 


A 1 9 17 

U x Z r 


A 

A 


t wnirY 9 • unpn 

1 JNUfiA Z i •WUK.U 


YT OOP 
axj uur 


9 O ft 9 
z u o z 


0 P 9 1 
<J \j Z 1 


P F17 9 

r r r z 


A 

JA 


uo p n 

• W VJ tv JJ 


INDEX 1 - . , SEMIS 




a p o o 
U L z z 


A 9 A A 
UZoA 


A 

A 






Z U O J 












9 O ft A 


0 P 9 "3 


ft S S A 


A 
A 


H F AT) 
n xj ax/ 


npn S T ONH ' T ' / ? 5 fi 


1 A Q £ 
Z U O -> 


a p o /. 


C 0 /. o. 
D z 4 y 


A 

A 


ma T) r\ 


' D T ' ' A r» ' J-AT*r» TMHFY— A 
Ki y A1J x/ JJ ^ 1 IN V Cj A — H 




0C25 


41C4 


A 








0C26 


0C07 


A 






2086 


0C27 


0342 


A 


TRIAD: .WORD 


DOCOL, LIT, 0 00C , EMIT, THREE 




0C28 


0103 


A 






0C29 


oooc 


A 








0C2A 


0 1ED 


A 








0C2B 


0382 


A 







PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 



2087 



2088 



2089 



2090 



2091 



2092 
2093 
2094 
2095 
2096 
2097 
2098 



2099 



0C2C 

0C2D 
0C2E 
0C2F 
0C30 
0C31 
0C32 
0C33 
0C34 
0C35 
0C36 
0C37 
0C38 
0C39 
0C3A 
0C3B 
0C3C 
0C3D 
0C3E 



0911 
0382 
0901 
0382 
02C9 
029F 
02D5 
0155 
01FC 
0161 
OBEA 
012F 
FFFC 
01FC 
0103 
OOOF 
0A05 
01FC 
026A 



2 100 



2 101 



2 102 



2 103 



2 104 



0C3F 
0C40 
0C41 
0C42 
0C43 
0C44 
0C45 
0C46 
0C47 
0C48 
0C49 
0C4A 
0C4B 

0C4C 
0C4D 
0C4E 
0C4F 
0C50 
0C51 
0C52 
0C53 
0C54 
0C55 
0C56 

0C57 
0C58 
0C59 
0C5A 
0C5B 
0C5C 
0C5D 



8556 
4C49 
53D4 
0C23 
0342 
0103 
0080 
03E7 A 
031D A 
0 3FA 
0 3 OB 
030B 
03E7 
030B 
0103 A 
0040 A 
0463 
0124 
0005 
0 1FC 
0376 
03E7 
031D 
02DD 

075D 
0475 
0475 
04C0 
04A3 
030B 
02DD 



• WORD SLASH, THREE, STAR, THREE 



.WORD OVER, PLUS , SWAP , XDO 



TRIAD 1 : .WORD CR , I , L I ST , XL OOP 



.WORD TRIAD1-. ,CR, LIT, OOOF 



.WORD MESS, CR, SEMIS 



.****************************************** *** ****** 
> 

;* TOOLS * 

**************************************************** 



HEAD ORD, 5, LONG, 'V /256 

.WORD 'LI' , 'ST '+ODD , TRIAD -4 



VLIST: .WORD DOCOL , L IT , 00 8 0 , OUT , STORE 



.WORD CONT , AT , AT 



VLIST1: .WORD OUT , AT , L IT , 0 0 4 0 , GREAT , Z BRAN 



.WORD VLIST2-. , CR , ZERO , OUT , STORE 



VLIST2: .WORD DUP , IDDOT , SPACE , SPACE 



.WORD PFA , LFA , AT , DUP , Z EQU 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 





0C5E 


028F 


A 






2 105 


0C5F 


01F8 


A 


.WORD 


QTERM , OR , ZBRAN 




0C60 


0246 


A 








0C61 


0124 


A 






2 106 


0C62 


FFE9 


A 


• WORD 


VL I ST 1 - . , DROP, SEMIS 




0C6 3 


0 2D0 


A 








0C64 


026A 


A 






2 107 






5 






2 108 


0C6 5 


8454 


A 


HEAD 


ORD , 4 , LONG , ' T ' / 256 


2 109 


0C66 


4153 


A 


.WORD 


'AS' , 'K'+EVEN, VLIST 




0C67 


CB20 


A 








0C68 


0C3F 


A 






2110 


0C69 


0342 


A TASK: 


.WORD 


DOCOL, SEMIS 




0C6A 


026A 


A 







2 111 

PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 
DICTIONARY 

.PAGE 

2112 ; 

2113 088C FIN: .END CENT 



PACE ASSEMBLER REV-A 05/23/75 
FORTH NUCLEUS FOR PACE 



00F6 02A2 A 

00F7 0108 A 

00F8 0109 A 

00F9 0107 A 

OOFA 015D A 

OOFB 015C A 

OOFC 7E44 A 

OOFD 7E3B A 

OOFE 7ECC A 



ABORT 


0874 


A 


ABS 


08C0 


A 


ALLOT 


0442 


A 


AND 


023F 


A 


AT 


030B 


A 


BACK 


OACA 


A 


BAD 


0175 


A 


BASE 


040D 


A 


BCOMP 


07AF 


A 


BDIGS 


0B6F 


A 


BIN 


02A2 


A 


BITO 


0003 


A 


BLANKS 


0671 


A 


BLK 


03DD 


A 


BLOCK 


09B6 


A 


BLOCK1 


09C5 


A 


BLOCK 3 


09DE 


A 


BRAN 


01 IB 


A 


BUFF 1 


0997 


A 


BUFF2 


09AA 


A 


BUFFS 


1DF0 


A 


BUFMEM 


0210 


A 


BYTE 


02FD 


A 


CAT 


0311 


A 


CENT 


088C 


A 


CFA 


04AA 


A 


CMOVE 


0690 


A 


CMOVE1 


0698 


A 


CMOVE3 


06A2 


A 


COLD 


088B 


A 


COMMA 


0448 


A 


COMPIL 


0521 


A 


CONT 


03FA 


A 


COUNT 


058E 


A 


CR 


01FC 


A 


CREAT1 


078C 


A 


CRY 


0007 


A 


CSET 


000A 


A 


CSTORE 


0324 


A 


CURR 


0401 


A 


DABS 


08C8 


A 


DDOT 


OBCE 


A 


DDUP 


047D 


A 


DEC 


0553 


A 


DELIM 


0 IDA 


A 


DFIND 


0727 


A 


DICT 


0100 


A 


DIG 


0B91 


A 


DIGIT 


0166 


A 


DIGS 


0BA7 


A 


DLINE 


09FB 


A 


DLITE1 


07D4 


A 


DMINUS 


0 2BD 


A 


DO 


OAFO 


A 


DOCON 


035C 


A 


DODOES 


0583 


A 


DOT 


0BD5 


A 


DOTQ 


05D8 


A 


DOTQ2 


05EE 


A 


DOTR 


0BC5 


A 


DOVAR 


0367 


A 


DOVOC 


0837 


A 


DPO 


001F 


A* 


DPL 


0412 


A 


DPMI 


08B7 


A 


DPMI1 


08BC 


A 


DROP 
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